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FLASH COMDEX REPORT 


AITARL: Buy a S80 ST and get ac? drive 
for $70. 1040 STs have socket for blitter 
chip; older modsls will have add-on board. No 
heat problems are reported with all-in-one box 
Only 30% of ST sales are in the US. The ST is 


the biggest selling computer in Germany. The 
20-meg hard disk is $800; the SMM804, BOcps 
dot printer is $219. New ST 3° party catalog 
is 347 pages. 

ANTICO. STart, ST quarterly. B-Bit: 
Calc Magic, a $25 spreadsheet for the  130XE. 
SI: CAD-3D $50 by Tom Hudson; A-Calc, a $60 


GEM spreadsheet; Expert Opinion, $100 profes- 
sional AI expert system From France. 


BATTERIES INCLUDED: B-Bit: advanced 
Paper Clip uith spellpack for the 130XE. Si: 
versions of PaperClip and HomePak; Degas Flite 
and Isgur Portfolio analyzer. The sensational 
Thunder, an advanced real-time spelling 
checker for $40. 


ABACUS; PC board designer for $400, plus 
all their manuals (S ready and more to come, 
including the definative ST Encyclopedia. 


MINDMINE: S20 ST memory upgrades, $50 
real time clock, and a customized to your 
picture ST-talking doll for only $150. 


Wonderful $500 program for desktop 
publishing with laser printer or Epson. It’s 
also a CAD system, word processor, graphics 
modelling spreadsheet, macros, etc. Potential 
for being the mast significant product shoun. 


Many neu utilities, and one of 
the Feu showing ST games. 


LLE 05/9 68k multiuser/multitasking 
"unix like" software which will run GEM based 
non-graphic software and any 057/9 software. 

XLENT: B-Bit: PS Interface, to link 
Printshop, .Xlent’s graphic programs, & a new 
powerful $30 word processor. 

GST had a very fast fractal generator 
with powerful zoom Functions. 

Hippos ($1405 and Print-Technik ($250) 
both showed video digitizers. Hippo also 
showed eprom burners, idea processor, audio 
sampler, and its complete line. 


HABA showed a $99 memory upgrade for the 
S20 ST, a 1200 bps modem, and a powerful 
program which uses all the protocols, 


including xmodem, Compuserve & Kermit. 
Powerful business applications were shown by 
Regent, Power Systems, Sierra On-Line, 


Business Operating Software, DAC, Versasoft & 
others.. 

showed a MIDI synthesizer for 
the B-bits in the S40-S60 range. Activision 
showed its electronic music publishing 
software. 

Languages for the ST include at least 3 
Basics Cone compiled), several C versions 
CUSS, Mark Williams, Lattice, etc.?, TDI 
showed Modula-2, Fortran, Cobol, Forth. 

showed a product using the MIDI 
port ($149) which permits up to 20 SIS« cO 
share peripherals. Paul Heckel of QuickView 
was there with his Zoomracks and his Friendly 
Software Design book. 

Ihe best part uas the wonderful Antic Sr" 
anniversary awards party where I accepted the 
first Antic User Group Award on behalf of all 


of you. Many of the vendors were ACE members 
before they became professional, and I met 
many old and new Friends. The Antic award 


ceremony wes well attended and very nice. 
Everyone had a good time and the awards are 
beautiful. It was a real honor to accept the 
award on behalf of all you ACE members! 

-- Mike Dunn 


STuff 


The 520 ST is now for sale at Toys R Us. The new 520s and the 
1040s may use a composite monitor (and TV?). The 20-meg hard drive 
is just now going into serial production. You should see them soon. ST 
Basic is being revised, and improvements in the GEM tools are also 
scheduled. The Amy sound chip may also be on its way back onto Atari 
drawing boards. 

Hitachi CD-ROM drive for $680 is now selling for the ST by Liberty 
Corp., in Washington state. 

Datapac Inc. plans to distribute a ROM cartridge for the ST which 
will permit the user to run Macintosh programs. 

Shanner is now selling a dual, double-sided, disk drive for $399. 
Find someone who wants your single-sided drive and have 2 double-sided 
drives for $200 less than the price of 2 separate drives. 

Antic On-Line quotes Sam Tramiel regarding 8-bit developments 
coming later this year, including: A plug-in 80-column card with a parallel 
printer interface for $79; memory chip expansions similar to those Apple 
has for the lle; 500K memory 3.5-inch disk drives, with a new DOS by 


ST Library 


Thanks to Andre Lafreniere and all our friends in Quebec we have 
some dramatic new additions to our disk library. Some of this material 
is from Germany. Some of the documentation and print statements in 
the program code is written in French and German. The following disks 
are added: 

1. Midi Write Program disk; 

2. Telecommunications disk (including a patch to the MITERM 
program, and a Super BBS); 

3. Digitized photos; 

4. a disk full of fonts and two font loader desktop accessories; 

5. a disk full of basic programs. 

We've also split off the C files from the Utility disk and have created 
a special C disk, adding many new utilities to the Utility disk. These 
utilities include: Filecmp.prg; Speed.prg (check your floppy speed); 
Volume.prg and .rsc (change volume names on disk); Copy3.acc (a 
desktop sector copy utility); STscope.prg (sector edior); Picsw.prg and 
txt (converts MacPaint! and C-Amiga .IFF! files to Degas or NeoChrome 
format — now we have access to all the art available for the 68k 
systems!); RDspeed.tos (test your ramdisk speed). 

Other new programs include: Mandel.prg; Compose.prg (a demo of 
a new product soon to appear from Xlent Software); Celest.prg (Celestial 
Caesars strategy game); and Life.prg. 

One spectacular item we've added to our MIDI & Sound demo disk 
is a 25k file of digitized sound. It sounds like a rather badly recorded 
rock and roll song off the radio. But it's a start. Also we've been receiving 
quite a few games. We have almost a disk full of games. If you want 
the latest printout of our library list, send 50 cents. Each single-sided 
disk we ask a $10 donation; $15 for a double-sided disk. 


MEETING 
WEDNESDAY MAY 14TH 
7:30 PM 
SOUTH EUGENE HIGH 


SOMETHING SPECIAL 


BUMPAS REVIEWS 


WORD FOR WORD 


Word for Word ($40, BayView Software, 177 Webster Street, suite 
A-295, Monterey, CA 93940) is the game of Scrabble for your ST. Any 
number of the one to four players may be humans or the computer. The 
program is also available for IBM PCs and compatibles which use the 
GEM interface. The game will play on either a color or monochrome 
monitor. 

This game is really much more than the ordinary game of Scrabble. 
How easy is it for you to design and use a custom board with your old 
Scrabble game? WFW gives you three additional boards from which to 
choose, as well as a utility with which you can design boards of your 
own. You can alter the size, shape, and layout of the board. A different 
board is selected by pulling down a menu from the desktop from within 
the game. WFW also keeps score for the players and will also search 
its own 20,000 word dictionary for words to assist a player in selecting 
a high-scoring word. 

One of three skill levels can be chosen, and time limits may be set. 
Word may be challenged, after which the players look up the word in 
a reference of choice. If the decision is “not a word”, then the offending 
player looses that turn. Play options include passing a turn and 
exchanging letter tiles. The values of letters may be displayed. A player 
may “hide” his letters during his turn to keep the other players from 
seeing them. 

The game is extremely easy to play, with most game functions being 
executed with the mouse. All one's desktop accessories are also available 
along with the various other drop-down menus. | highly recommend this 
program for anyone who enjoys Scrabble or word games. 


STTERM 


ST-TERM ($30, Commnet Systems, 7348 Green Oak Terrace, 
Lanham, MD 20706) does most of what PC/Intercomm does, but for 
a much more reasonable price. | was not able to invoke any VT100 
emulation (even though the magazine ads I've seen for it say it has 
“VT52/VT100” emulation), but it will emulate the 8-bit Ataris. And it 
has several features missing (can you believe it?) from PC/Intercomm. 

For instance: You have access to 9 DOS functions. You can actually 
perform file maintenance functions on the disk while in the program. 
It also contains a connect timer/billing calculator. 

Kermit and Xmodem protocols are supported and there are 20 
definable macro function keys. The documentation and program also 
provide for saving particular setups (bps rate, etc.) for each number you 
might call on the autodial directory. But | was unable to get this feature 
to work. Everytime | used Alt-S, | got the message telling me the file 
was written with “O bytes”. Even after a phone conversation with the 
program’s designer, | was still unable to get any different result. The 
program is supposedly no longer protected, but | was told the problem 
might be occuring because | was trying to save setup files to a backup 
disk. So | believe this is a problem which needs correction, or at least 
better information to users so they may correctly save their setup files. 

There are 20 pages of documentation which are complete, but lack 
either a table of contents or index. You'll probably not be able to 
remember how to use all the features until you become very familiar with 
the program, so a quick way to get to relevant sections might be nice. 

This program is brought to you by the same folks who give you 
FoReM ST, and this terminal software is designed to work with that BBS 
software. Full compatibility if promised. This program looks like a good 
bet for those of you who want most of what PC/Intercomm offers, and 
who do not need the VT100 emulation. 


HINTS 


For New Users 

M.U.L.E. players will be interested to know | have been informed 
by a local ACE member who says he’s scored over 900,000 points in 
a game. | tried his method and got over 231,000 my first try. Here’s how 
you do it: 

You must have at least 2 human players. Try to build up stocks of 
crystite (and smithore) so each player has an accumulation of 50 units 
of these ores on Turn 11. Try to produce maximum crystite on Turn 12. 
During the auction on Turn 12, make sure at least one player is on the 
“Buy” line for crystite. Run the buying player up as high as you can (you 
should be able to get to over $800 easily). At the very last moment, drop 
a seller down and sell at least one unit. This will make all the 400 or 
so crystites accumulated among the players worth more than $800 each 
for the final accounting. Buy one unit of all the other commodities also, 
just to drive the value of the colony up by the increment. 


COPYRIGHTS 


We're seeing more and more software appearing in the public domain 
these days. And the quality is very good. Many of these new programs 
carry what | consider a misleading “copyright” notice. | think the authors 
of the software might be the major victims of this misunderstanding. 
The notice usually reads something like the following: “copyright 1986 
by Software Developer, all commercial rights reserved. This software may 
be freely copied and distributed, but it may not be sold....” 

The law requires the copyright holder to protect his rights. Once 
one gives anyone the right to copy and distribute the software, it is in 
the public domain. | don't believe one can require users to protect one’s 
“commercial” rights after one has given the material to the public 
domain. Once in the public domain, a user may make any use of the 
software desired: Copying, distributing, altering, even selling. There are 
several companies which make a business of collecting good public 
domain software and re-issuing it in their product line for a profit. This 
is perfectly legal. | do not believe someone who has ostensibly retained 
“commercial rights’’ will be able to prosecute a claim for copyright 
infringement after the software has been placed in the public domain. 

If you are a software developer, and you believe you have a good 
piece of software which you might want to distribute commercially, don't 
be misled. You may still distribute it at a profit, of course. But | don't 
believe you'll be able to legally prevent anyone else from doing the same. 
You might be well advised to spend $25 for a half hour consultation with 
an attorney to discuss the issues l've raised here. But software developers 
are having a hard enough time in today's market without thinking you're 
protecting rights when you're not. Look into it. 

— Jim Bumpas 


SCREENS 


SCREENS (by Joseph J. Wrobel, $20 from The Soft Cellar, P. O. 
Box 16393, Rochester, NY 14616-0393) is a lovely hack for all you 8-bit 
programmers to use and enjoy (and amaze your ST-owning friends). 

WINDOWS, on your trusty old 400, 800 or XL! 9 of them at once, 
displaying messages, graphs, pictures, time, the disk directory, whatever 
— all without interfering with what is otherwise on the display. 

SCREENS is a relocatable machine-language utility which loads, 
as an AUTORUN.SYS file, just above your DOS in RAM, protecting itself 
by moving MEMLO up by 3297 bytes. Once there, it gives you a new 
device, "W:", with a simple series of BASIC commands to specify the 
location and size of windows 1-9, the position, color, and size of the 
display inside the window, and the choice of two ways of framing the 
window, if desired. 

| am delighted to learn | can display any character in ROM, and/or 
custom characters, or the most complex graphics, in any size — from 
a single pixel (!) to a full screen — by simply specifying two numbers, 
the width and height of characters in a window. And | can move, re-size, 
and superimpose windows, store them in RAM or on disk, recall them, 
reverse their colors, and even scroll their contents. 

The commands for doing all this are simple BASIC ones which can 
be included in any program. Examples are given in the 36 page manual 
and on the (unprotected) disk. To get you going there is an impressive 
DEMO program, with other, smaller programs which make it easy to get 
started with this flexible utility. Once you learn how to work the “W: 
device — think of it as a second TV screen, like the "S:" device, or a 
kind of printer/’P:”, with its own special but essentially simple rulese, 
the only limit (aside from BASIC's leisurely ways) is your imagination and 
programming skill. 

Are you up to the challenge? Then send your $19.95 to the Soft 
Cellar. 

You'll get a disk with the device handler program (as an 
AUTORUN.SYS file), four custom character fonts, five BASIC demo 
programs (with handy subroutines which you can lift bodily for your own 
programs), a delightful picture of an Atari 800, and the manual. This 
modest but complete booklet gives you a 21-page tutorial, a handy 
reference section with details of the terms and commands used, and 
a chapter for advanced programmers which details how "SCREENS" 
loads itself into RAM, the OS variables and page zero locations it uses 
(without leaving bugs behind for other programs), and the formats used 
to save and recall a window in RAM or on disk. Some of you might be 
glad to know that Page 6 is NOT used. 

SCREENS can, in principle, be used with other languages which 
are faster than BASIC, if you know how. A hint: You can load and recall 
windows from any address up to 65535. 

Now, let's see, by reading the joystick port or console and poking 
PORTB I could.... 

— Dick Barkley 


News and Reviews 
Mike Dunn, Co-Editor 

Last month, two significant events happened to ACE. We were 
named by ANTIC as the best Atari Club, and we almost ran out of money. 
I will be going to COMDEX in Atlanta to receive the award and hopefully 
report in this issue on the show. The last | heard, Atari will have at least 
17 smaller companies in their booth showing their new products, so it 
should be interesting. The money issue is more complicated. We have 
just developed a fantastic BBS using a super 130xe Atari with 512K 
memory, a 10 Meg hard disk, a 300/1200/2400 bps modem, and a 
fabulous new software system — all of which cost us lots of money to 
develop. Usually we keep about 2 to 3 issues ahead in the bank, but we 
got a little low. The other thing that happened is we received several 
large orders for software from foreign companies, and our bank would 
not accept them directly — they needed to be sent back to the country 
of origin before they would credit them. After our plea, we recieved a 
welcome influx in cash from you, our members, including several 
generous gifts for the BBS — thank you! We also invite you to buy some 
of our disks from the library — this will help alot. 

| am frequently asked by new members and new clubs on how to 
make a club successful. | am sure there are many ways, but | want to 
tell you about our way. When we started the club 6 years ago, we decided 
on certain principles and have not changed them. 

1. The club is open to anyone; there are no dues, but the newsletter 
needs to be paid for if you want it mailed. 

2. Since we are a small town, we try to help out others living in 
small towns where there are no other users around or no club. When 
| had the only Atari in Eugene, | could understand how much help, even 
long distance help, was useful. 

3. We try to have members be as helpful as they wished, no matter 
where they lived. Stan Ockers lives in Illinois, Sydney Brown in Australia, 
George Suetsugu in Hawaii; all are active members although none have 
ever attended a meeting. 

4. The business meetings are separate from our general meetings 
and are usually attended only by the “Council”, that is, the officiers and 
other active members but all are welcome. Most people do not want to 
spend their time discussing the general business of running the club. 

5. There are a variety of types of meetings — guest speakers, help 
sessions, demos of new products, swap meets, etc. 

6. There are a variety of special interest groups meeting seperately. 
In the past these have included hardware groups, educational groups, 
and special language groups, including BASIC, ACTION!, assembly 
language, LOGO, PILOT, and now C and ST. 

7. Everything we do is public domain, and allow you to do anything 
with them except to sell them commercially. Other clubs can sell our 
software, but only one company (Computer Palace) can sell them. Others 
do, but Computer Palace has our permission and gives a royalty to the 
club for it. These sales are to non-members, and we get many members 
from these buyers. 

8. We do not allow advertising and do not sell or give our mailing 
lists to anyone. 

9. We activly trade newsletters and disks with many other clubs, 
and try to help new ones get started all over the world. 

10. Always give credit when credit is due. 

11. We accept products for review, do not copy them, and allow 
the person who reviews one to keep it. We also allow many people to 
do the reviews, although we favor those who come to “collating parties" 
to put together the newsletter. 

12. We avoid filling the newsletter with editorials, reports of our 
meetings, or other personal information of no interest to the majority 
of our members. 

13. No pirating!! 

Of course the main reason for our success is our members who have 
always supported us with articles and money when needed. You can 
continue to do so — please send in articles, reviews, programs, hardware 
projects or anything you want to share with others — we welcome it. 
Articles and reviews from children are also very welcome. And if you 
are a heavy user of the BBS and are able, donations are most appreciated. 

For the future, we are considering going to bulk mail, and using the 
tremendous amount of money we will save to increase the size of the 
newsletter so as to better cover both the 8 and 16 bit world — but we 
will need more articles from you to do SO. 





One of our newest members, teenager Chuck Walbourn (9035 
Brickwood, San Antonio, TX 78250) is a programmer and wants to talk 
to fellow programmers to get and give help. You can also get him a CIS 
73537,527 and DELPHI: DIGITA. 





In the last issue, it was not completely clear that the two games 
were from one of my favorite Atari publications, PAGE 6 (18 Underwood 
Close, Parkside, Stafford, England ST16 1TB). This month we have a series 
of articles and programs by Rita Plukss and Dick Kellett from another 
of my favorite newsletters, the Melborne Australian Atari Gazette (MACE, 
POB 340, Rosanna, Victoria, Australia 3084) on the fascinating subject 
of Mandelbrot Sets. They were kind enough to send us a disk with their 
articles and a slide show of the beautiful pictures generated. If you want, 
you can get the double-sided disk with the programs on one side and 
the pictures on the other for $10 from the library. Ask for the Mandelbrot 
disk — if you have any interest in this subject you will be very impressed. 
If any of you out there are already doing work in this area, send me your 
programs and I'll send you the disk free and foward yours to Rita — or 
you can write her directly at MACE. 

Due to several requests, we also have a new disk from the Atari 
Addicts Club, Atari Addicts Sector Tool, a well documented sector 
editor which works in single or double density and with interesting 
features. $5. 

Our public domain software utilities and DOS’ for the 256K 8-bit 
Ataris have increased to 2 double sided disks, including a special MACH- 
DOS. If you want it all, $20 including the documentation to increase the 
memory (specify model) or $10 for the basic software and reprint (up 
from $7 — there is too much now included). 

If you like text adventure games, Mysterious Mansion by Tim 
Roberson has been improved and expanded — well worth $5 for a disk 
full, $5. 

(Minimum price is $10 a disk, which includes 2 sides full. The new 
library list is ready at $1 or free with order-ask for it.) 


VP RAMBLINGS 


As we mentioned last month, Mike Dunn is going to COMDEX and 
should come back with the latest in Atari news, so that next months 
issue should contain everything fit to print about Atari and maybe even 
things that arn't. Look for it. 

Every month we try to bring you up to date on everything from 
rumors to new products, but | always try to keep one foot on the ground 
and tell you that if nothing new comes along for your 8-bit machine there 
is so much still available to use, and if there wasn't what you have should 
keep you going for a long time. If you are only a game player then it could 
be a slow year for you, but if you use your machine for business, word 
processing etc. then you can go on and on with the 8-bit and never miss 
using your machine. It's a nice feeling to know that barring a break down 
in the machine itself there is so much you can do that you should be 
able to use it forever. 

One of the reasons | bring all this up is that we should let all the 
software houses know we are still out there and they should continue 
to develop programs for us, and with what they know now about 8-bit 
programming we should see more sophisticated programs, taking fuller 
advantage of the Atari's full line of 8-bit machines. While some software 
houses have done this most have not and they should as there is still 
a vast market out there which has not really been tapped. Let's try to 
make them tap it. Write them (software developers) and let them know 
how we feel. Thanks. 

| want to thank all of you who renewed your membership after our 
call for funds, but remember we have a very extensive library, please use 
it not only for the good programs you will receive, but it will help us with 
our cash flow. Thanks again for your support. 

— Larry Gold 


LETTER: 


| am proud to say | am the A.C.E. representative in Colombia and 
| feel immensely happy for the Award (Antic Outstanding User Group 
Award) recently given to ACE. It must be noticed that the award was 
not given for its being old or full of members but because of the quality 
that all our directors, present and past, have given to the club through 
the personal sacrifice, interest and effort in favor of the rest of us Atarians 
of the club and of the world. Full of emotion and gratitude | give you 
directors my applause and | consider myself the representative of those 
lazy members who prefer to be silent in this so important occasion. Here 
is our standing ovation. With congratulations and respect, 
— Fernando Hidalgo 
Cali, Colombia 


8 REM. 
R 

9 GOSUB 29888;POKE 789,2:60T0 28 

i8 POKE 1782,224:POKE 752,1:POKE 534,8 
: RETURN 

i5 SOUND 8,1*2,18,1:50UND 1,1*2,18,1:5 
OUND 2,1*X2*6,18,L :50UND Z,IX4t15,18,1: 
RETURN 

28 7 "R" POSITION 7,6:7 "THE TRA 

HS LATOR? ;:? 17? uj | CHORSCTE! 
R EDITOR Š 

tü 7 37 37 nj 


:2 i j 


TRANSLATOR CHR EDITO 


VERSION 1.8":7 :? 

OCTOBER / 1984" 

33 FOR I-255 TO 1 STEP -2:50UND 8,I,8, 
4:50HND 1,1:18,8,18:50UND 2,1*188,8,18 
:NEXT I:50HND 8,255,18,8:50HND 1,254,1 
8,8:50UND 2,128,18,4 

i5 FOR I-2 TO 12 STEP 8.2:POKE 789,1:N 
ENT I 

36 TM-288:G05HB 18888:F0R I-68 TO 8 5T 
EP -1:L-I/8:G605UB 15:MEXT I 

48 IF PEEK(7643-255 THEN 48 

41 FOR T-1 TO 16:7 ;NEKT T:? " by 
MILLIAM KOKON I":FOR I-i T 
ü 23:7? ;IF I-12 THEN TM-388:GO05lIB 1888 
8 
42 NEXT I:TM-288:G05HUB 18888:G05UB Zog 
88:POSITION 8,2:? " translator 

CHR EDITOR" 

39 REM 
68 GOSUB i1B:POSITION 8,1:? " ESCAPE KE 
Y TO ABORT DIRECTORY LISTING ":7? :? BL 
K$;PR53:2? LFTS;:POKE 83,21 
Si TRAP 68:7? :DS-"D;X,X":0PEN 12,6,8,D 
$:N-2:Y-3:6051B 76:FOR Izi TO 64:INPLT 
H2:F5:12 © IAE MU ae 


62 IF I-ii OR I-33 OR I-55 THEN POKE 8 
Z,Z1:PQKE 83,39: K-23: Y-3:605UB 76 

63 IF I-22 OR I-44 THEN POKE 82,8:POQKE 
85,21:4-2:Y-1:605UB 76:POKE 764,255:6 
05UB 77 

b4 IF PEEK(7643-28 THEN 68 

b5 POKE 54286,122:PÜKE 764,255:NEXT I 
58 POKE 82,8:POKE &3,39:PO5ITION @,8:7 
PULS:?7 " PRESS "gr FOR YES / 'N' TO 
PROCEED "Ü; 

53 CLOSE H2:7 :7? :POSITION 8,3:G05UB 1 

8:? PULS;"h READ DIRECTORY AGAIN?";:P 

OKE 764,255:SET HZ,ñ:IF oan THEN 68 

7i IF A078 THEN 68 

74 POSITION 8,8:? © TO RESTORE TO EF 

IA FONT ENTER 1":POSITION 8,1:? " 

DR TYPE IN FONT FILENAME " 


TRANSLATOR EDITOR 


75 POSITION 8,3:? PULS;"PFONT TO LOAD 
Di: ";:DS-U"D:":;605UB 27888:G60T0 88 
76 POSITION X,Y:? :RETURN 
77 IF PEEK(7G641-255 THEN 77 
78 RETURN 
73 REH ETT ae 
88 IF D$(1,3)-"D:1" THEN FM-224:POKE 1 
782,224:G60Tü0 185 
82 TRAP 188:0PEN H7,4,8,D5 
85 POKE 952,0:POKE 953,4:POKE 348,8:PQ 
KE 942,PEEK (7483-4; POKE 346,7:X-U5R (16 
88,7*X16) :PQKE 1782,156 
33 REM 
188 CLOSE #7:FM-PEEK(748)-4:G05UB 2888 
:IF ERRF-i THEN TM-i88:G605UB 18888:60T 
0 58 
i85 POKE 752,1:POSITION 8,8:7 PHL3:7? " 
IS THIS THE FONT TO INSTALL ? 
# 
186 POKE 766,34:7 :T-16:POSITION 4,T:F 
OR I-8 TO 127:7 CHRS(ID);:IF I-32 QR I= 
64 OR I-96 THEN T-T*1:POSITION 4,T 
118 NEXT I:POKE 766,8 
125 POSITION 8,3:? PULS;"} 
IM H E ?";;GET Hi, 
i26 IF A-89 THEN GOTO i38 
128 IF 4-78 THEN POSITION 8,4:? LFT$;: 
GOTO 68 
129 GOTO 125 
138 POSITION 8,1:? PüL2:A-8 
isi IF ñ=2Z7 THEN GOTO 68 
i32 TRAP 171:POSITIOM 8,3:? PULS;" 
ENTER DRIVE TO WRITE TO [1-4] ";:GET 
HI, A:DRY-VALCCHRS (AJ): TRAP 48888 
i33 TEMP-FM:POSITION 8,1:? PRSS:IF DRY 
{z8 OR BRYD=5 THEN 132 
134 POSITION 8,3:? PULS;" INSERT TRANS 
LATOR INTO DRIVE '";DRU;" FOR ID": GET # 
i,0:BS-3:ES-3:CMD-82: CHK=-1:FM-188:60TO 
148 
135 CHK-8:FO0R I-8 TO 7:D9CI*i1,I*1)-CHR 
SCtPEEKC25688*1)2 : NEXT I 
136 IF D$(1,8)-CMP$ (1,8) THEM B5-127:E 
5-134:Dp$-"RHFAMFTME :60T0 14e 
137 IF D$(1,8)-CHP$ (9,16) THEN B5-26:E 
S-33:Dp$- VLETIX :G0TO 148 
138 POSITION 6,3:7 T 
":TM-288:G050B8 18 
888:60TO 1:8 
139 REM REESE EU 
i48 POSITION 8,1:? '" THIS STEP INSTAL 
L5 NEM CHARACTER SET ":POüKE 718,68 
14i POSITION @,3:7 PULS;" PRESS 'Y' TO 
MODIFY ";D$;" TRANS DISK": GET H3, A:CH 
D-87:FM-TEMP 
9 


CONT 


i42 IF 4-83 THEN 148 
i4i IF A-27 THEN POKE 718,58:G0T0 68 
i44 GOTO 148 
148 TRAP 2888:POKE 763,DRU;POKE 778,CM 
D:FL-1:M-8;FÜR SCN-B5 TO ES;FLl- NOT FL 
SFL-FLX128 
218 POKE 778,5CN- CINT(SCN/2561€2562 ; PO 
KE 779,I1NT(5CN/2551:POKE 772,FL:POKE 7 
73,FMTtINT(HY:M-H*8,5:G605HB 588 
268 NEKT SCN:IF CHK-1 THEN if5 
397 POSITION 8,1:? PULS;:PQSITION 8,3: 
5 Tati. eure: 

G POKE 718,58:60T0 68 
588 X-5R (1687) : RETURN 
2888 POKE 752,1:? :ERR-PEEK(1235) :ERRF- 
1:IF ERR-i178 THEN ERRS-"MEZSESEUEAENULNU 
EMANEN: coro 2858 
2818 IF ERR-i64 THEN ERRS=" 
a CO R E WUEREN 
2815 IF ERR-i65 THEN ERR$-" 
TEELE: 2858 
2828 IF ERR-i44 THEN ERRS-"> ENSE: 
aa ee ae" GOTO 2858 
2845 ERRF-@: RETURN 
2858 POSITION 8,3:? PULS;ERRS; :POSITIO 
N 8,8:? PULS:? " PROBLEM ENCOLINTERE 
D, CHECK DRIUE ` ";:RETURN 
iegag FOR T-i TO TM: NEXT T:TM-18BB:RET 
URN 
26399 REM 
27888 F5-24:FE-IS:M-FS5:Y-I;PÜKE 752,8: 
POKE 634,8 
27868 IF X-I2 AND A<)}126 THEN A-45:G60T 
0 27865 
27063 GET #3,A:IF H(28 THEN T-1 
27865 IF f-i155 THEN FOR I-F5 TO FE:LOC 
ATE I,Y,A:DS CLENCDS2 4 12 -CHRS CAI : WEKT I 
:605UB 18:RETURN 
27078 IF 229 OR 4-28 OR A-125 OR A-15 
6 OR A2157 OR 4-27 OR A-255 OR 8-254 T 
HEN 27868 
27875 IF A-iZ6 AND KEE AND T-i THEN H 
-FE*ti1:T-2 
27888 POSITION K,Y:? CHR$(à); 
27898 IF 0-125 OR à-38 THEN X-X-(OO-F5 
*i):G0TO0 27868 
27188 H-H*(XRC-FE-1):G0TQ0 27868 
28393 REM 
29888 POKE 82,8:PüKE 7292,15:POüKF 738,2 
:POKE 622,258: GRAPHICS 8:POKE 764,255: 
POKE 752,1:? :POKE 718,2 
23818 RETURN 
38888 DIM D$(283,F$(28) ,ERRS (40) , PULSE 
33) ,LFT$ (221, CMPS (16) , BLKS (22 , PR5$ (27) 


MANDELBROT SET 
CON'T 


418 FOR CHANGE-DLIST+6 TO DLIST*284;IF 
PEEKCCHANGE32-15 THEN POKE CHANGE,14 
428 IF PEEK(CCHANGEJ-79 THEN POKE CHANG 

E,78 

430 NEKT CHANGE:POKE 87,7:RETURN 

448 REM 

458 ? CHR$(1251:? :? "Once design is C 
omplete, press SELECT to save to disk. 
The default name is PICTURE" 

450 POKE 764,255:? "Press START to plo 
t a new picture without saving cur 

rent screen" 

478 ? :? "Enter Filename to save desig 

n":? "pO NOT H5E DEVICE NAPE OR EXTEND 
ER": INPUT B$ 

488 P-LEN(B5):IF P-B8 THEN AS="D:PICTUR 
E";GOTO 518 

498 &à$(1,3)-"D:;'":FOR H23 TO P+2:ASCK,K 

)-B$(t€-2,43-2) : NEXT H 

588 ASOPtI,Pt6)-".PIC" 

5i8 RETURN 

528 REM 
538 REM 

548 CLOSE HL: OPEN 11,8,8,4$ 

558 S-PEEK(C88)*256X*PEEK (82) : TOP-5+7688 
;B5-TOUP-5 

568 HI-INT(B5/2561:L0-B5- CHTX256) : POKE 
858,11:;POÜKE 852,PEEK (88) :POKE 853,PEE 
K(89) :POKE 856,L0:POKE 857,HI 

578 D-USRCADR(C'"hhhz LUE] 3,162 : CLOSE Hi 
588 FOR TIME-i TO 18:FOR K-18 TO 8 STE 
P -8.3:501ND 8,8,2,H: NEXT M:NENT TIME 
538 GOTO 38 


—— a a v — a mn Vas op pm vm mn vm vm 


MIRACLES 
BY BARKLEY 


18 REM DECORATIVE BORDERS AND PATTERNS 
FOR ATARI WITH EPSON-COMPATIBLE DOT-M 
ATRIM GRAPHICS 

i5 REM ADAPTED AND EXTENDED BY R.A. BAR 
KLEY FROM J.H. DAUENPORT'3 "GRAPHICS F 
OR THE DOT-MATRIM PRINTER" 

28 DIM AC16),BCI6) , ECB) , K CB) , YCB) , GRS ( 
5),BYTES (8) , MBYTES (82, A CX) 

22 PRINT CHR$(125) 

23 ? :? :2 :2 17 :? A 
24 FOR HAIT-1 TO 399:NEXT WAIT 
25 LPRINT CHRS(27);"8''; 

38 EFE(0)-1:FOR P-1 TO 7:ECP)-ECP- 1) X2:N 
ERT P 


e 


35 REM 3X MENU PAGE 3390€ 
48 ? CHRSCI25)2 :POSITION 2,5 
iio "GeëcCogertut ee ee ba 


5 

47 7 M< (HII €£7-7-7/N Z/N- ttt 
3 As 

4:7 FOR EPSON-COMPATIBLE PRINTERS 
M's? :° 

45 7:7 WR ENTER YOUR OHN PATTERN 
KI 

46 2 än WE GENERATE RANDOM PATTER 
nS?" 


47 OF 

OR ANS)2 THEN 38 
58 ? "LENGTH OF DOT-PATTERN (TO 1863";I 
NPHT Q:IF ü(8 OR Q^i16 THEN 38 

55 ? "PRINTER DENSITY CODE (8 TO 63":T 
NPHT D:IF D<8 OR DHG THEN 38 

68 7 "NO. OF REPETITIONS (8- ONE LINE) 
H INPUT R:IF R48 THEN 28 

65 IF AN5-2 THEN ? “NO. OF DIFFERENT P 
ATTERNS TO PRINT": INPUT N:GO5U8 618:60 
TO 108 

78 IF ñN5-1 THEN N-i 

75 GOSUB 518:G0T0 188 

B8 END 

38 ? CHR$(I25) :POSITION 8,5:60T0 45 
188 FOR PATTERN-1 TO H 

138 C-8 

i48 G2-INT((AGXQ1/2563 :G1- (480-25 562 
+i 

158 GRS(1,13-CHRS (272: GRSCZ,2}—"H" i GR$ 
(X,3)-CHRS CD) : GRS (4, 4) -CHRS CEL) GRSE5, 
5) -CHRS (62) 

168 LPRINT GR$; 

178 FOR J-1 TO 28 

188 FOR Izi TO Q:LPRINT CHRSCACTI); "RE 
KT I 

i98 FOR LO TO i STEP -i:LPRINT CHR3 (A 
(1313); NENT I 


"UPIINPUT ANS:IF ANSA 


112 LPRINT CHR$(27);"2"; HRS C122 ; 

i15 LPRINT " PATTERN H ":PATTERN;" 
DOT PATTERN LENGTH: "jQ" PRINTE 

R DENSITY CODE: ";D 

128 LPRINT CHR$(27);"2" : CHRS (12) ; 

325 IF N)i AND PATTERN(N THEN GOSUB 61 

& 

338 NEXT PATTERN 

348 ? | PRESS “RETURN? Bie 

INPUT AS:IF aS="" THEN CONT 

358 ? CHR$(I25):G0TO 45 

588 REM CH ENTER OWN PATTERN NO.5 WEF 


:7 H 
9. 


518 7 :7 " ENTER ";0;" NUMBERS ( 8 - 
2551" 

520 ? :7 " No. Pin Pattern" 

522. 2 £ g":7 

5378 FOR I-1 TO Q:? CHRS(28); 


INPUT A$:A (I2 -UAL (05) : LCLEN CA?) 
Gora 788 
REM XX* ENTER RANDOM SEQUENCE 39 


GK 
558 
688 


618 ? :7 " No. Pin Pattern" 
517 ? " 7 WS? 
515 REM FOR K-i TO N 


678 
1 
638 


FOR I-i TO Q:ACTI-INTIRND (B) X (255) 


AS-STRS CACI3) :L-LEN (45) 

788 REM XX RIGHT JUSTIFY ALI) X« 

7i8 ? CHR5(28);" "::IF L-X THEN ? 
ACI); GOTO 748 

728 IF L-2 THEN ? " ";A(1);:G0TO 748 
7180 IF Loi THEM ? " "At; 

740 ? " - 4; l 

1888 REM XXMIRROR-IMAGE CONVERSTIONX® 
1818 REM X DIGITAL TO BINARY X 

1828 COPEAU 

18:8 FOR P-7 TO 8 STEP -i 

1848 K(P)-CODE-E (P) 

1858 IF K(P)X0 THEM Y(P)-8:GOTO 1878 
1868 Y(P)-1:CODE-H CP) | 


288 HENT J i878 IF Y(P) THEN ? CHRS(i48};:G0TO 18 
218 LPRINT CHR$(27);"A'";CHRS (83 ; CHRS C1 78 

81; 1675 ? CHR$ (168); 

228 LPRINT GR$; 1878 NEXT P 

zi8 FOR J-1 TO 28 1888 ? ;? FOR J-8 TD 7 


248 FOR I-1 TO Q:LPRINT CHRS(BCIJ);:NE 1882 
KT I 1885 
258 FOR I-0 TO i STEP -i:LPRINT CHRS(B 1898 
(13) ; :NERT I i835 
268 NEFT J 1188 
278 C-C+I;IF C<=R THEN LPRINT CHR2(27) 1118 
248: CHRS (8); CHRS C17); :G0TO 168 


288 LPRINT CHRS(272;"2";CHRS Cid); 1288 
298 FOR Izi TO Q:LPRINT ACI);" "RER 1218 
Jot 1228 


i88 LPRINT CHRS (273 ;"2";CHRS (132; 
3118 FOR Izi TO Q:LPRINT BCID; ";:HWEM 1588 


6 


REM X REVERSE BIT SEQUENCE X 
BYTES C41, J* 13-CHRS CY C.32 

MBYTES (8-J,8-J) -CCHRS CY C13) 

NEXT J 

REM * BINARY TO DIGITAL * 
B(IJ-128XY (8) 4£64XY (1) t 32XY (2) F1 bX 


YC3348XY (4) t4XY (52 432XY C62 *Y C7) 


NEKT I 
? 2" CODE: MIRROR IMAGE:" 
FOR I-1 TO Q:PRINT " “;ACT),, BC 


I} :WEXT I:? 


RETURN 


18 
15 


GOSUB 19888 
POSITION 8,28:? H6;" 


tas 
; 

POSITION 8,28:0N P+Z GOTO 48 

? W#6;UPLAYER & i":G0TQO 58 

48 7 itb;"player / =" 

58 POSITION 8,22:? Hë; TDLITEE s" 

58 G--CP--11X32 

78 GET Hl,Z:Y=Z-48:IF ¥<i OR vip THEN 

78 

88 7 HH:CHRSC178+Z):7 He: MEN 

K-CY-1)*3 

38 GET d1,2:Y-Z-48:IF vii OR vip THEN 

58 

188 ? H&5;CHRSCI28t22 : i Y- (Y-1) X3 

iig IF 5GNCACH, Y3)--P. THEN 15 

128 GOSHB 1888:6G05HUB 9888 

i38 IF ABSCACH, Y) 4€ THEN P--P:GOTO 15 


28 
58 


CW 


148 G05B 2888 
158 Ii-8:12-8;Z-8;F0R K-@ TO 18 STEP 3 
:FOR Y-8 TO iğ STEP š 
168 IF ACE, Y) 48 THEN Ii-i 
178 IF ñ(K,Y))80 THEN I2-1 
i88 GOSUB 3888 
198 IF AB5SC(ACE, Y13)-C THEN Z-1:605UB i 
B18:G605HB 2888 
288 NEKT Y:NEHT H 
218 IF Ii-8 THEN POSITION 8,28:? H6;"P 
LAYER & 1 ":? HO; "MINS": GOTO 588 
228 IF I2-8 THEN POSITION 8,28:? Hb;"p 
layer / = ":? Ho; "wins": G0TO 588 
238 IF Z-1 THEM 158 
248 P--P:60T0 15 
588 ? H6; "Ean EG 

"PIGET Hi,K:IF K-82 THEN RUN 
518 ? :END 
1888 ACK,Y3-A CH, YIP 
i8i8 POSITION K*1,Y*1:? 86; CHRS (Gt39) ; 
CHRS C6439) ; CHRS (6422) ; 
1815 F-ABSIALCE,Y)1 
1828 POSITION X*1,Y*2:? H6;CHRS (GT I3); 
CHRS CFt48t6) ; CHRS (6439) ; 
1838 POSITION Kti,Y*3:? #6; CHRS (6439); 
CHRS (G+39) ; CHRS (6429); 
1048 RETURN 
2000 POSITION X*2,Y*1:? #6; CHRS (6435) 
2818 POSITION Hti,¥+2:? HO; CHRS(G+37) 
2828 POSITION K+3,Y+2:7 HH; CHRS C6438) 
2818 POSITION HtZ,¥+3:? 6; CHRS (6436) 
2848 FOR J-i5 TO 8 STEP -8.15:50UMD 8, 
83,8,J:MEXT J 
2858 A(X,YJ-ACE, Y) -CKXP: IF ACH, Y) O 8. TH 
EN G05UB 1818:G0T0 2148 


GUESS!!! 


2068 IF (K/2-INT(H/2) AND Y/Z2-INT(Y/2) 
) OR CH/2QDIMTCK/2) AND Y/2 (Y INT(Y/2)) 
THEN 2118 

2878 POSITION Kti,¥+i:? t6; UD: 

2888 POSITION X*1,Y*2:?7 tt5; "ZU" 

2838 POSITION X*1,Y*31:2? 16; UH" 

2188 GOTO 2148 

2118 POSITION X*1,Y*1:? t5; "HR 

2128 POSITION X41,Y*2:? t6; [ENI" 

7138 POSITION X*1,Y*32:? t6; "EEF 

2148 DH BY RP 

2158 IF A(3X THEN 2188 

2168 A(Aà-Z,B)-AB5 (A CA- Z, BI) XN4N 

2178 X-A-I:Y-B:G05UB 1018 

2188 IF Adi THEN 2218 

2198 A(CA*I,B)-ABS (ACAtT, B2 2 XN4N 

2288 HIATT: Y=B:GO5UB 1818 

2218 IF B< THEN 2248 

1228 ACA, B-3) =ABS CA CA, B- 32 3 KNN 

?218 K-à:Y-B-3:605UB 1818 

2240 IF Biz THEN 2278 

2258 ACA, BET) —=ABS (A Cà, BE Z2) XNN 

1268 K-A:Y-B*3i:605lB 1818 

1278 RETURN 

yaaa CA 

9010 IF X-15 OR K-8 THEN C-C-i 

3828 IF Y-15 OR Y-8 THEN C-C-1 

3010 RETURN 

18888 GRAPHICS 8:POKE 752,1:POKE 789,1 
S:POKE 718,24:POSITION 8,1:POKE 82,1 
18818 ? “EXPLOSION BY P. GIBBS'":POSITI 
UN R Rey = 

18828 ? "4 
game. The" 
18828 7? "object is to leave your oppon 
ent with" 


Explosion is a two player 


i8848 7 "no pieces on the board." 
[8858 7 ''i In a go you may Place a P 
iece in" 


[8868 7 "either an unoccupied square, 
ar one" 
L8878 ? "occupied by your own pieces." 


[8888 ? "+ 
of pieces" 

[8838 7 "that can remain in any square 
In most" 

(8188 ? "squares this number is three 

ut at the"; 

[B118 ? "edges it is two and at the CO 

‘ners it" 

[8128 ? “is one. If that number is exc 

eded the" 

(8138 7 "pieces on that square will ex 

ode into"; 


There is a Maximu» number 


7 


18148 ? "those surrounding it, so taki 

ng them over," 

18158 7 "4 Multiple explosions are p 

pssible f$” 

11888 FOR I-@ TO SiZ:POKE 25688+I,PEEK 

(57344*1) : NEXT I 

11818 FOR I-8 TO 6Z;BEñD A:POKE 25688* 

[,755-A:WEKT I f 

11828 FOR I-i136 TO i83:POKE 2558811,75 

S-PEEK(S57144 *I) : NEXT I 

12888 ? " 

AN: 

12318 PIM 4A(28,280):FO0R I-@ TO 18 STEP 

X.FOR II-8 TO ig STEP F:ACT,ITI=-G: NEXT 
II:NERT I 

12828 OPEN 11,4,8,"K;": GET HI ,K 

12588 GRAPHICS 17:POQKE 788,54:POKF 755 
,188:POKE 718,28;PUKE 712,8 

izgae ? gn H B H H B Gr 

1Z018 FOR I-@ TO 17 STEP š 

13828 OM (I/2-INT(I/2)) GOTO 1048 
13838 FOR L-8 Tü 2:7 H6;" Rene p p pn pg ng 

REE: NEKT L: NEXT I:G0TO 17858 

i3848 FOR L-@ TO 2:7 pr" BEXIUUUEEULUU 

89 RECHT L:NEET I 

iz858 FOR I-@ TO i5 STEP A 

iz868 POSITION 8,2*1:7? tt6 : CHR5 C177* CI/ 
333 :WEXT I 

14880 Pi: RETURN 

28888 PATA 178,178,178,1780,178,178,178 
,178 
z8818 
28828 
KTM 
78848 

78858 

28858 
i2888 
i2588 


ACTION 


BYTE FUNC EQSCCARD 51,52) 
BYTE TEMP 


DATA 
BATA 
DATA 
DATA 


255,8,255,8,255,8,255,8 
24,68,120,212,24,24,24,24 
24,24,24,24,219,120,068,24 
16,48,956,255,255,926,48,16 
DATA 8,12,6,255,255,6,12,8 
DATA 8,8,8,8,8,8,8,8 

GOSUB 12588:G0TO0 28 

GOTO 32588 


RETURNS TRUECSFFJ IF STRINGS ARE 
EQUAL, FALSE(S88) IF STRINGS ARE 
NOT EQUAL 


jem wa ë w. ‘we 


Si IS ADDRESS OF FIRST STRING 
52 IS ADDRESS OF SECOND STRING 


wn ban Ing 


IF SCOMPARE(S1,52) THEN 
TEHP-$88 

ELSE 
TEMP-$FF 

FI 

RETURN (TEHP1 


BOOHER BEER NNN 
s 

;* Demo using counters provided by * 
;* the program itself, decremented * 
;* during the Vertical Blank Int. # 
LXCEOOIOOUOCIOOOCGOCRROOOGOOOOOOHECNOOHOOOOUHERGE 
; 


BYTE ARRAY cntdnt5) ,cntfig(5),maxcnt (5 
} 
BYTE ARRAY rot-[47 124 92 45 451 


PROC Setvect-SE45C (BYTE areg,xreg,yreg 


This time used to insert routine int 


EI o9 eb 


; Vertical blank interrupt 


PROC blank ; Routine to be inserted 
BYTE i 
FOR i-@ TO 4 DQ 
IF cntdntiJ)8 THEN 
cntdn(iJ---1 FI ; decrement count 
ers 
IF cntdn(12-8 THEN 
cntflg(i)-8 FI ;set flag if zer 
Op 
[54C 55F SE4] 
Ck 


; In line code jump ba 


PROC Rotatet) ;lipdate figures at timeo 
ut 
BYTE | 
FOR j-8 TO 4 BO 
WHILE Maxcnt(j34(15 AND cntfl9g(Cj1-8 


Do 
IF rottj3-47 THEN rott 73-45 
ELSEIF rot(j)-45 THEN rot Ou? 


2 

ELSEIF rot(j1-92 THEN rott(j;3-1 
Z4 

ELSEIF rot u 124 THEN rot j)- 
47 

FI 

Position(5X j*18,18) Putirott j 
} 

IF Rand(15)41 THEN maxcntt(j1—- 
ti FI 

rcrntdn(j)-maxcnt(j) cntflg( j3-1 

gp 
üp 

RETURN 


PROC Spins) 


OCKERS IN ACTION 


BYTE k 
Put(125) Poke(752,1) ;Clear screen 
Setvect(6,Ublank RSH 8,Ublank £ SFF) 


;üur vertical blank routine inserted 
DO ¿do forever 
IF Rand(83 Ci AND RAND(CIB)1 THEN 
k-Rand(5) Maxcnt(kJ-1 cntflg(k)- 
FI ;Rotations re-started at rando 
Rotate(J Update all 


0p 
RETURN 


l 


e 4 ms 


: ERKENNEN EGE 
#0 

;* Demonstration of timer HZ, going * 
; to a specific routine on timeout # 
: SIHOOOOOOGOOHOHEOOOOOOPOPHOOOOOHOPOHOBEE 


J 


PROC setime-584858(BYTE areg,xreg,yreg 


PROC timeup () 
Poke (7i@,@) 
RETURN 


Called upon interrupt 
;Black background 


PROC IntimeQO 
CARD time 
BYTE sec, j- [321 
Printe" SECONDS?") sec-InputB( 
tiMe-secK68 
PokeC($8228, timeup) ;set #2 vector 
Setimet2,time R5H 8,time & SFF) 
Hsing timer #2 
po 
Puttj) j--*1 
IF j2122 THEN j-32 FI 
OD ;Endless loop 
RETURN 
8 


;Interrupt at timeout 


; S3EEEIEJERNQORHOEIHIOOIOPIOOHOOOOOOOBOHDOOHOOIO!OH 
J 
ZE ñ Demonstration of using system 3 


ZE timer #3, watching a flag j 


; location for timeout. 1 


HN 


PROC SetiMe-58468(BYTE areg,xreg,yreg) 
; Used to set timers during UBI 
PROC Pollflag() ;Poll flag for timeoul 


CARD time 
BYTE sec, flag=$@22A, j-(3Z2] ; timer #3 
Print('# seconds?") sec-InputB( 
time-sec%*60 flag-i ; non-zero 
Setimety,time RSH 8,time & SFF) 
pÜ 
PUt(j) j--*1 ;just do something 
IF j>122 THEN j-32 FI 
UNTIL flag-8 ;until timeout 
np 
PutEt) Print('"TIME IS BP 111°} 


NOT ACTION BY 
OCKERS 


y PROC PRINTBB(IBYTE NUM) 


; PRINTS OUT A BYTE IN BINARY 
? 

BYTE 

MA5K, BIT 


MA5K=$880 


FOR BIT-8 TO 7 
DO 
IF MASK & NUM THEN 
PRINT OTI) 
ELSE 
PRINT ("8") 
FI 
MASK--RSH 1 
0d 


RETURN 


gam UE SA 
/* File: FIXACEC.C Sf 
E. aden f= rie ht bebe he empapas maa | U d 
/* Fix "fto10" in ñCE-C x/ 
PF* #7 
/* ACE Newsletter x/ 
ZE 3662 Vine Maple, Eugene, Or X/ 
/* 97485 $14 yr May '86 x/ 
/¥ #7 
/* By ñ..J.ñspromatis x/ 
/* */ 
/* Org: 1/21/86 Rev: 4/ 7/86 X/ 
fXE-—————————————————————————— #7 
ZER 
define bufr 8x5888 
Hdefine bug loc 8x9358 
FXE/ 
maint) 

$( 


TU 


char data; 
int count, countZ,line,x; 
ee setup a 
poke(752,1); ETIRI 
putchar (rt): THEN TT 
positionti8,2); 
printf("fto1O FIX FOR ACEC"); 
positioní(ii,i); 
printf("by &.J.Asprosmatis"); 
line-18; 
position(y, line); 
printft"Insert ACEC disk & press (RE 
RMD"); 
while{getkey() !-z'n'2; 
k open file to read g 
open. file(4,"read",linett*); 
positioní(4,ttline); 
printft"Reading ENGINE .08.!'); 
We get file data a4 
for (count=@; ;++count) 

5( f 

if ((data-cgetc (11) <8) break; "d 


ad until EOF .24 


poke (bufrtcount, data); 
$) 
close(1); 
/ test if fixed Lë 
if (dpeek Cbufrtbug_loc}--@xb4d4A6 && dp 


eek (bufrt Chug_loc} +23 --@xb5a5) 


St 

du fix it ad 

poke (bufrtbug 1loc,8x45); 
poketbufrt(bug 10c)42,8x46); 
position(4, **line); 
printf('--fixed--''); 

/ open file to write az 


open file(8,"write",linel; 


FIXACEC IN C 


positioní4,*ttline); 

printfít"Writing ENGINE, OBJ}; 

ae put file data ji 

for Ccount2=8; count2Z<count; ttcountz 
3 cputc (peek Cbhufrtcount23 , 1); 

close i); 

5) 

else 

ee dO NOt fix Lë 

$t 

positionts3,ttline); 

if(dpeek(bufrtbug loc)--8xD4à5 && 
dpeek (bufrt (bug loc} *2)--8xD546) 

printft"File already fixed"); 

else printf("Different version of 
ENGINE. 084"); 

positiontd, ttline); 

printf("Fix aborted"); 


$) 

position(s, 2@) ; 

printf("Done -- press (RETURN) for D 
05"); 

whilet(Cgetkeu() !-z'n'); 

$) 
/ÁXk/ 
PW EE eege eee T d 
/* Function definitions X/ 
{¥---------------------- ¥#/ 
d'ER/ 
{%------------------ -*/ 


/* ERROR CODE NOTICE #/ 
notice(error,line) 
char error; 
int line; 

St 

error--error; 

positionti,ttline)l; 

printf(" Error Zd on disk access,",e 
rror); 

position(Z,t+line); 

printf(" Press (RETURN? to try again 
"3; 

whiletgetkey() !z'Nn'); 

lIine-cerasetzZ,line; 

return; 

5) 
{RRs 


/* ERASE LINES X/ 
erase (number, line} 
int line,number; 


St 
for(;number!-8;--number,--line) 
$t 
positiont2, line}; 
printf(" 
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x: 
$) 
return(line); 


$) 
WE 


/* OPEN FILE TO REñD/HRITE X/ 
open filetcmnd,pronmpt,linel 
char prompti]; | 
int cmnd, line; 
$t 
Char code; 
whilettcode-open(i,cmnd,-1," "D: ENGINE 
,084"21) (8) 
SC 
position(4,++line); 
printft"Cannot Xs ENGINE. OBJ", prom 
Pt}; 
notice (code, line}; 
clase ti); 
line=erase (ti, line); 
53 
return; 


ACTION 
ACTION 


BYTE FUNC MESC{CARD 51,52) 

BYTE TEMP l 

; RETURNS FALSE($@@) IF STRINGS ARE 
; EQUAL, TRUECSFF) IF STRINGS ARE 
NOT EQUAL 


51 I5 ADDRESS OF FIRST STRING 
; 52 I5 ADDRESS OF SECOND STRING 


IF SCOMPARE (51,52) THEN 
TEMP-SFF 

ELSE 
TEMP-$88 

FI 


RETURN (TEMP) 


PROC GLITCHO 


[21 


RETURN 


i8 
28 


REM DIE PART i- MANDLCAL 

REM refer to Scientific American 
August 19285 

REM MACE subset of Mandelbrot set 
by DICK KELLETT 

REM MACE MARCH 1385 

REM 

68 REM 

78 SETCOLOR 2,8,8:? CHR$ (125) ;" HHE 

N THE PROGRAM I5 RUN THE SCREFNHILL BL 

ANK TO SPEED THE CALCULATIONS": ? 

sp ? " EUEN WITH THIS THE TOTAL TIM 

E TO CALCULATE AND SAVE THE DATA I5 B 

ETHEEN ið AND 28 ENENESS' 7 

98 ? " WHILE THE PROGRAM I5 RUNNING 

PRESSANY FUNCTION KEY MOP TIONMSELECT 

or Figen TO DISPLAY THE "; 

188 ? "CURRENT NUMBER OF ITERATIONS, 

HORIZONTAL COUNT AND UERTICAL COUNT. 


i8 


48 
58 


i18 ? ;? " PRESS GEIA TO CONTINU 
E" 

128 IF PEEK(51279) 06 THEN 128 

i38 ? CHRS(125) :DIM MANS (8) , FILES (153 
148 ? "INSERT DISK WITH AT LEAST 258 F 
REE SECTORS": ? 

15@ ? “INPUT FILE NAME. DO NOT HSE DEY 
ICE OR EXTENDER. "; 

i68 7 "THE PROGRAM WILL SUPPLY A DEU 
ICE NAME D. AND à .DAT EXTENDER" 


178 ? "ENTER MAME OF DATA FILE":? "(MÀ 
X 8 CHARACTERS)"; : INPUT MANS 

188 FILES (1,22 "D: " t FILES (322 -MANS ; FILE 
5CLENCHANS) 43, LEN (MANS) t7) =". DAT" 

1398 CLOSE Hi:OPEN 111,8, 8, FILE? 

288 H5-153:U5-191:IT-188 

218 TRAP 218:? CHRS (175) ;"ACORNER ,BCO 
RNER ARE THE BOTTOM LEFT CORNER OF TH 
E AREA TO BE PLOTTED” 

228 ? "ENTER ACORNER,BCORNER ";: INPUT 
ACNR,BCNR 

218 TRAP 238:POSITION 14,18:? " 

i 

248 POSITION 2,5:? " SIDE IS THE DISTA 
NCE TO BE COVERED INA POSITIVE GOING H 
ORIZONTAL DIRECTION” 

258 ? " THE DISTANCE COUERED IN à PO 
SITIVE GOING VERTICAL DIRECTION I5 APP 
ROX. @.6 THE HORIZONTAL DISTANCE" 
268 ? "ENTER SIDE "PIINPUT 5D 

278 SCR-PEEK(553) : POKE 559,@:POKE 755, 
8:? CHRS (125) 

288 GAàP-5D/H5:UGAP-GAP/2:REM ADJUST FO 
R PIXEL SHAPE 
298 REM MAIN HUMBER CRUNCHING ROUTINES 


MANDELBROT SET 


308 
718 
i28 
iig 
i48 
158 


FOR U-8 TO US:FOR H-8 TO H5 
BC-UXUGAP BCNR 

ACHHEGAPTACNR 
81-8:87-8:I-8:J-8:K-8 : COUNT-8 
AZ-AC*I-J:BZ-BCt2XK 

COUNT-COUNT*1 

i68 I-AZXAZ:J-BZXBZ:K-A7XBZ 

178 REM DISPLAY CURRENT STATE WIER à F 
HNCTION KEY I5 PRESSED 

i88 IF PEEK(52279) O7 THEN G035uB 438 
i98 REM BLANK SCREEN WHEN FUNCTION KEY 
IS RELEASED TO SPEEDUP CALCULATIONS 
400 IF PEEK(532793-7 THEN POKE 559,8 
410 IF COUNT<IT AND (4434-4 THEN 348 
420 PUT Hi,COUMT 

418 COUNT-B:NEXT H:NEKT U 

448 PUT #1,155:REM EOL 

458 CLOSE H1:POKE 559,5CR:GRAPHICS 18: 
POSITION 5,2:7? it6 ; ELERA : POSITION 
3,4:7 ne; "EE EB" 

468 POSITION 3,5:? t6; FILES: POKE 755,2 


478 GOTO 478 

488 REM DISPLAY CURRENT STATE 

498 POKE 77,8:POKE 559,5CR:POSITIOM 2, 
2:7 "COUNT" 

sgg POSITION 15,2:? upor. POS.":POSITI 
ON 28,2:7 “VERT. pos." 

518 POSITION @,3:? " 

—— a 


528 POSITION 4,4:? COUNT;"  ":POSITION 


18,4:2 Wim "POSITION 24,4:? Vj" j 
S38 RETURN 
18 REM (TTPISEANU; - PART 2 MANDPLOT 


28 REM refer to Scientific American 
August 1985 

REM This reads the data file from 
MANDLCAL and plots the screen 

REM 

REM MACE subset of Mandelbrot set 
by DICK KELLETT 


REM MACE - MARCH 1286 


i8 


48 
38 


68 
78 
88 
98 


REM JJOOOOHOOHHOOHHOOE 
CLR "DIN A$ (15) , 89 (152 , LDS C152 , FILE 
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$(8):6051B 458 

i88 ? CHR$(125):? "ENTER FILE WAME OF 

DATA FILE.DO NOT USE DEVICE NAME OR 

ERT." INPUT FILES 

118 (ESO, 2 "D: LES -FILES : LDS (LEN 
(FILES) £2) -" DAT" 

128 TRAP 128:7 CHRS(125) 

i38 ? "ENTER H TO DISPLAY PICTURE WITH 
USER SELECTED COUNTS FOR COLOR CHANG 

E" 

148 ? "ENTER H TO DISPLAY PICTURE HITH 
COLOR CHANGE MOD 3" 

i58 ? "ENTER H TO PLOT THE COUNTS LOWE 

o THAN THE FIRST CHANGE POINT IN MOD š 
i68 INPUT CH:IF CH<i OR CH)3 THEM 128 
78 TRAP 48888:IF CH-2 THEN 258 

188 ? CHRSC125):2 "THE COUNTS FOR CHAN 
LE ARE BETWEEN 1 AND 188, ENTER THE 
CHANGE MUMBERS IN ASCENDING ORDER" 
198 TRAP 19@:POSITION 3,5:? " — 

288 POSITION 1,4:? "ENTER COUNT FOR FI 
oer COLOR CHANGE ":INPUT Ci:IF EL) OR 
C1)1808 THEN 198 

218 TRAP 218:POSITION 1,7:? "  " 

228 POSITION 3,6:7 "ENTER COUNT FOR 5E 
COND COLOR CHANGE ":INPIT C2:IF GH 
op C2?188 THEM 218 

218 TRAP 238:POSITION 3,9:2 " — 

248 POSITION 1,8:7 "ENTER COUNT FOR TH 
[Rb COLOR CHANGE ":INPUT C3:IF CS(-C? 
OR CD)i88 THEN 238 

250 TRAP 358 

268 GOSUB 488 

278 CLOSE H1:0PEM Hi,4,0,LDS 

280 FOR U-131 TO 8 STEP -i:FOR H-8 TO 
159:6ET tii, N:COL-N 

238 IF CH-1 OR CH-3 THEM COL-1¥CN<CL)* 
SECC ZCL) AND (4022) 2X (CD -C2). AND 
(CI) HOD CI) 

rag IF CH-2 OR (CH-3 AND (M(CIJ) THEN 
COL-(N/Z-INT(N/3))*141 

118 IF N-i188 THEN COL-8 

1:28 COLOR COL:IF ¥<96 THEN POKE 83,587 
15:PLOT H,U:REM TOP HALF OF SCREEN 

339 IF U)95 THEN POKE 89,50:PLOT H,U-3 
SIREM BOTTOM HALF OF SCREEN 

148 NEXT H:NEXT V 

158 POKE 89,50-15:CLOSE HI:REM RETURN 
POINTER TO TOP HALF OF SCREEN 

168 IF PEEK(53273)-5 THEN 38 

178 IF PEEK(51279)-5 THEM 548 

188 GOTO 768 

198 REM 

488 GRAPHICS 8*16:DLIST-PEEK (568) tPEEK 
(561)X256:POKE DLIST#S, 78: SA=PEEK (89) * 
15 


605UB 18888 
POSITION 8,28:7 H0;" 


i8 
15 


us 
; 

POSITION 8,28:0N P+? GOTO 48 

? H6;"PLAYER & i":G0TO 58 

? dib;"player / =" 

POSITION 8,22:? tt6; TTITEE Rn: 

6--CP--1)X12 

GET Hi,Z:¥-Z-48:IF ¥<i OR Y>6 THEN 


28 
38 
48 
58 
68 
78 
78 
88 ? H6;CHRS(CI28t2)2:2 H6;"DTED] H':: 
K-CY-1)1 

38 GET 11,2:Y-Z-48:IF Y(1 OR Y>6 THEN 

58 

180 ? H5;CHR$(128t72;:Y-(Y-1)3 

118 IF 5GN(CA LX, Y) --P. THEN 15 

iz8 GOSUB 1888;:6051B 3888 

i38 IF ABSCACK,Y3)<C THEN P--P:GOTO 15 


148 GOSUB 2888 
i58 Ii-8:12-8:7-8:FO0R K-@ TO 18 STEP A 
:FOR Y-8 TO 18 STEP A 
160 IF ACX,Y)2 48 THEN Ii-i 
i78 IF ñUK,Y)28 THEN I2-1 
i88 GO5SUB 3888 
i98 IF ABS{ACK,Y}}>—-C THEN Z-1:G05UB i 
818:G05UB 2888 
288 HEHT Y:NEXHT X 
218 IF Ii-8 THEN POSITION 8,28:? H6;"P 
LAYER & 1 ":? H6;"HINS":GOTO 588 
228 IF I2-8 THEN POSITION @,28:7 prp 
layer Z = ":? Hb6;"wins":G0TO0 588 
218 IF Z-i THEM 158 
248 P--P:G0TO 15 
588 ? të; EALO ELG 

"::GET Hi,K;:IF K-89 THEN RUM 
518 ? : END 
1880 AiK, YIA, YJ +P 
1018 POSITION X*1,Y*1:7 #6; CHRS C6439); 
CHRS (64329) ; CHRS CE4393 ; 
1815 FrABS (ATK, Y31 
1828 POSITION M41, ¥42:7 #6; CHRSCGtI93; 
CHRS (CF 44846) ; CHRS (64393; 
iez8 POSITION K*1,Y*3:? H6;CHRSCGt32); 
CHRS (6439) ; CHRS (6439); 
1048 RETURN 
2888 POSITION M*2,Y*1:? H6;CHRSCGtz5) 
2818 POSITION X*1,Y*2:? H6;CHRSCGtI7) 
2828 POSITION X*Z,Y*2:? H6;CHRS(CGtZIB) 
28:8 POSITION X*2,Y*i:? HO;CHRS(CGtZIO) 
2848 FOR J-15 TO B STEP -8.15:50UND 8, 
83,8,J:NEKT J 
2858 ACK, YI-ACK,Y)-CHPSIF ACH, Y2 O 8. TH 
EN GOSUB 1818:G0T0 2148 
2068 IF (N/2-INT(H/2) AND Y/2-INT(Y/21 


EXPLOSION 


) OR (X/2OINTOI/2). AND ¥/20INTCY/2)) 
THEN 2118 

2878 POSITION K+i,Y+1:? H6; "IUE" 

2888 POSITION X*1,Y*2:? H6; "ZI" 

2898 POSITION X*1,Y*3::? Hp: "ge 

2188 GOTO 2148 

2118 POSITION M*1,Y*1:? H6;"IEEI" 

2128 POSITION Kti,¥+2:7 HG; DHE: 

2130 POSITION K*ti,Y*3:7 16; "BEI" 

2148 A-K:B-Y:N-P 

2i58 IF A43 THEN 2188 

2168 ACAà-3,B)-ABS Ch Cà- 2, B) ) XNN 

2178 M-0-I:Y-B:G05UB 1818 

2188 IF ñ)1Z THEN 2218 

2138 ACAtT, BI-ABSCATATT, B2 2 XN4N 

2288 H-AtI:Y-B:GOSUB 1818 

2218 IF B3 THEN 2248 

2228 ALA, B-JI-ABSCACA, BC 33 J XN*N 

2218 M-0:Y-B-3:605UB 1818 

2248 IF B)i3 THEN 2278 

2258 ACA,B*t3)-AB5 CACA, BE X2 ) NEN 

2268 M-A:Y-B*ti:GOÜSUB 1818 

2278 RETIRN 

3888 C-4 

3818 IF M-i5 OR K-@ THEN C-C-1 

3828 IF Y-i5 OR Y-8 THEN C-C-1 

3838 RETURN 

18086 GRAPHICS 8:POKE 752,1:POKE 783,1 
5:POKE 718,24:POSITION 8,1:POKE 82,1 

18818 ? "EXPLOSION BY P. GIBBS'":POSITI 
ON 8,7:7 Pš LM 

10828 ? "+ 
game. The" 

188238 ? "object is to leave your oppon 

ent with" 

i8848 ? "no pieces on the board." 

18858 ? "4 In a 30 you may place a p 

iece in" 

i8868 ? "either an unoccupied square, 

or one" 

i8878 ? "occupied by your own pieces." 


Explosion i5 a two player 


18088 ? "4 
of pieces" 
18838 ? "that can remain in any 
, In most" 

18188 ? "squares this number is 
but at the"; 

18118 ? "edges it is two and at 
rners it" 

18178 ? "is one. If that number 
eeded the'' 

18128 ? "pieces on that square will ex 

Plode into"; 

18148 ? “those surrounding it, 50 taki 

ng them over." 


There is a MaxiMuM number 
square 
three 


the Co 


is exc 
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iBiSB ? "4 

ossible !#" 

ii888 FOR I-8 TO 512:POKE 255884I,PEEK. 
(57344*I) : NEXT I 

118108 FOR I-8 TO BI:REÀD A:POKE 256884 
1,255-A:NEKT I 

118270 FOR I-1Z6 TO 187:POKE 2568811,25 
S-PEEK (5734441) :WEXT I 

12800 ? " 

NE": 

12018 DIM à(28,28):F0R I-8 TO 18 STEP 

3:FOR II-8 TO 18 STEP Z:A(I,II)-8:NEXT 
II:NEXT I 

12828 OPEN H1,4,8,"K:":GET H1,K 

12588 GRAPHICS 17:POKE 788,54:POKE 756 
,188:POKE 718,28:POKE 712,8 

izeee ? t; H FB H CU B Bn 

ii8i8 FOR I-0 TO 17 STEP 3 

11828 ON (I/2-INT(I/2)) GOTO 13848 

i3838 FOR L-8 TO 2:? #6;" Go 

Et: MENT L:NEMT I:GOTO i3858 

i3848 FOR L-8 TO 2:7 #6;" DED 

DENEN" NENT L:NEHT I 

13050 FOR I-8 TO 15 STEP 3 

11868 POSITION 8,2*1:? #6;CHRS (1774 CI/ 

3)) :NEXT I 

14880 P=1: RETURN 

28888 DATA 178,178,178,178,178,178,178 
,i78 

28818 

28828 

28838 

28848 

28858 

28868 

12888 

12588 


ACTION ACTION 


BYTE FUNC GTSCCARD 51,52) 
BYTE TEMP 


Multiple explosions are P 


DATA 
DATA 
DATA 
DATA 


255,8,255,8,255,8,255,8 
24,58,126,212,24,24,24,24 
24,24,24,24,219,125,68,24 
16,48,936,255,255,95,48,16 
DATA 8,12,56,255,255,5,12,8 
DATA 8,8,8,80,8,80,8,8 

GOSUB 12588;60T0 28 

GOTO 32588 


RETURNS TRUECSFF) IF 51 <= 52 
FALSE(C$88) OTHERWISE 


`. `. `. kt 


; 51 IS ADDRESS OF FIRST STRING 
; 52 I5 ADDRESS OF SECOND STRING 


IF 5COMPARE(51,521>0 THEN 
TEMP-SFF 
ELSE 
TER eg 
FI 
RETURN (TEMP) 


EXPLOSION CON'T 


38805 PULS="{F" PULS C393 "fF": PULS C2) PU 

LS:LFTS- TP: LFTS C23) "TP :LFTS C22-1F TS: 

OPEN 32,4,8,"K:": BLKS- TEP' 

i8887 PRSS="> PRESS ANY KEY TO CONTINU 

En 

Zü818 POKE 186,PEEK(748)-5:GRAPHICS5 8; 

POKE 788,102:P0KE 789,44:POKE 718,58;P 

OKE 712,0:POKE 752,1:? "WAIT!" 

30015 RESTORE 38858:FO0R I-1 TO 16:READ 
A&:CHPSCI,I)-CHRS CA}: NEXT I 

18828 POKE 512,128:POKE 513,6:FOR I-16 
64 TO 17:1:READ A:POKE I,A:MEXT I 
18825 DLS-PEEK(568)*256XPEEK (561) : POKE 
DLS*7,7:POKE DLS*8,6:POKE DLS*18,128: 
POKE D,5*22,128 


38838 X-ISR(1788):POKE 54285,192:RETUR 
i 

18849 REM MTSE, ale eee wee CES 
FIX | 


38050 DATA 208,212,96,19,28,47,17,112 
30868 DATA 157,69,3,169,8,157,75,3 
30069 REM 
STARTS -1554- 
18878 BATA 72,169,112,141,18,212,141,2 
4,208,169,156,141,8,2,184,64 
38073 REM 
STARTS -1588- 
3088A DATA 184,184,184,178,76,86,228 
38883 REM 
STARTS -1687- 
30830 BATA 104,32,83,228, 96 
30109 REM RETTTTTR ea U ASE Tu he ia 
STARTS -1592- WAS -1714- 
38118 DATA 72,169,2,141,18,212,141,24, 
768,169,156,141,9,212,104,64 
30119 REM STARTS -1788- 
NAS 1730 
18128 DATA 1804,150,183,162,5,169,7,32, 
92,228,396 
38129 REM STARTS -1719- 
WAS 1741 
i8i:8 DATA 169,128,141,8,2,169,192,141 
,14,212,76,98,228 


ACTION 


BYTE FUNC INKEYO 
; 
; IF ñ KEY I5 PRESSED RETURNS ITS 
; ATASCII VALUE, 255 OTHERHISE 
; 
BYTE TEMP 
If PEEK(764) 255 THEN 
TEMP-GETD (7) 
RETURN (TEMP) 
FI 
RETURN (255) 


SNARK 





@ REM 
i REH SET E 
? CEM LEE 
i REM CRE 10/34 

4 REM Coe oe St, Paul 
5 
6 
7 
T 













REM ET eee eens 
REM Gebeess 
FOR A=256 TO 288:READ B:POKE A,B:NEX 
à 

DATA 104,169,17,141,48,2,169,1,141,4 
1,2,169,38,141,26,2,96,173,243,2,41,23 
73,2, 141, 243,2,169,30,141,26,2,96 

9 POKE 284,8:A-U5R(256) 


G 


18 GRAPHICS 1:POKE 82,2:POKE 752,8:7 ; 
T P Së 

12 POSITION 4,15:? #6; "TEST" 

13 POSITION 18,15:? #6; MINGE" 

14 POSITION 14,3:? H6;“n" 

15 POSITION 13,4:? 6; “w" 

16 POSITION 14,5:7 t6;''s" 

17 POSITION 15,4:7 pre" 

18 POSITION 14,4;? Ho;"t" 

19 POSITION 8,18:7 HH;"y": POSITION 18, 
8:? H6;"x":G605HUB 9888;:CLR 

28 FOR ñ-0 TO 9 

i8 POSITION 4,0:? H6;B 

zi B-B+i 

40 NEXT A 

58 FOR C-8 TO 3 

68 POSITION 8,C:? prp 

ei D-D+i 

62 NEKT C 

65 REM PLOTTED POINTS 

78 FOR ñ-1 TO 9 

88 FOR B-i TO 9 

85 SOUND 8,6XB,18,8:5ETCOLOR 3,8,40XB*6 
38 POSITION B,A:? #6;"." 

188 NEKT B 

118 NEXT ñ 

iii SOUND 8,8,8,8 


112 
115 
128 
138 
135 
148 
"3 
158 GET Hi,X:? CHR$CK):POKE 53279,4:P0 
KE 53279,6 

168 ? ;:? "INPUT Y COORDINATESC(ETE42";7 
"his. 

178 GET Hi,Y:? CHRSCY):POKE 53279,4:P0 

KE 33279,6 

172 IF #448 OR K)57 OR Y(49 OR Y>57 TH 

EN ? "ihe ME" GOTO 148 

174 H-K-48:Y-Y-48 
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OPEN 11,4,8,"K:"' 
REM Laag 
K1-INT(9XRND C2) 61 

Yi-INT(9XRND (12241 

FOR T-9 TO 8 STEP -i 

? “INPUT K COORDIMATES(EéE3]":7 > 


188 IF K)Hi THEN ? "FARTHER 
i38 IF H<Ki THEN ? "FARTHER 
288 IF Y)Y1 THEN ? "FARTHER NORTH" 

218 IF Y4Yi THEN ? "FARTHER SOUTH" 

212 IF OI AND Y>Y1 THEN ? :? :? "FAR 
THER NORTH WEST" 

2i4 IF >Hi AND ¥<Yi THEN ? :? 
THER SOUTH WEST" 

216 IF K(M1 AND Y)Y1 THEN ? :? 
THER WORTH EAST" 

217 IF X(Ri AND vii THEN ? 
THER SOUTH EAST" 

228 IF R=Ki THEM ? "M COORD 


WEST" 
EAST" 


:? "FAR 


:? "FAR 


ae 


? :? "FAR 


I5 CORRECT 


IF Y=Yi THEN ? "Y COORD I5 CORRECT 
IF 
IF 
IF 


K=Ki AND Y-Yi THEM 1888 

X)9 THEN 148 

¥>9 THEN 148 

IF 4X1 THEN 148 

IF Y41 THEN 148 

POSITION 8,13:? H5;T;" TURNS LEFT" 
291 COLOR 45:PLOT K,Y 

235 FOR A-8 TO 888:MENXT ñ 
i88 NEKT T 
318 ? :? :7 ;? "YOU RAN OUT OF TURNS." 
i28 
325 


? "THE SWARK Mon AT ";HIi;","; Yi 
COLOR 171:PLOT Hi,Y1i 

338 FOR A-@ TO i1888:NEHT ñ 

i48 GOTO 5588 

1888 FOR 5-188 TO 1 STEP -i 

i588 50UND 8,5,18,5 

2888 SOUND 1,5-1,18,6 

2988 NEXT 5 

3688 ? ;? ;? "CONGRADULATIQNS!!!' 

3588 ? “YOU FOUND THE SHARK IN ";3-T*1 
s" TURNS!" 

i558 COLOR 171:PLOT Ri,Y1 

4888 FOR A-@ TO 588 

3808 NEKT ñ 

9881 SUUND 8,8,8,8 

5588 POSITION 14,8:7? #6; yee 

5555 POSITION 13,1:? ger EIA 

9956 FOR Q@H-@ TO 255 

5788 IF PEEK(51272)-6 THEN SOUND 8,8,8 
,U:50UND 1,8,8,8:CLR : RUN 

5888 SETCOLOR 2,8,0H:50UND 8,0H,18,6:5 
OUND 1,0Ht4,18,6 

53988 NEKT QH 

6888 GOTO 5556 

3888 REM 

9588 RETURN 


MANDELBROT SET 


The front side contains the four programs listed within the 
Mandelbrot articles in this issue. They allow you to create the Mandelbrot 
data file, plot the data file to screen, investigate where to make the 
required colour changes, and finally to dump the screen to printer, colour 
register by colour register (for colour printouts), or in a variety of grey 
shades. There are two versions; one in BASIC, the other compiled using 
MMG compiler. To load the compiled version go to DOS and load through 
the L option (Binary load). 

The flip side contains a slide show (using Fader 2) of graphics 7+ 
Mandelbrot screensaves. These include all the ones shown in this 
magazine plus a few more and were generated by Dick and Rita. 

To generate your own Mandelbrot use Program 1 and refer to Fig.1 
in the article. This is the complete set, and from here you can select the 
coordinates to investigate any part of that set. ACORNER (Real 
coordinate) is the horizontal axis, BCORNER (Imaginary coordinate) is 
the vertical axis. SIDE is the horizontal length of the ‘square’ you wish 
to view. (The ratio is 1 horizontal to .64 vertical.) The smaller the SIDE 
value, the more powerful the zooming function and you find yourself 
deeper within the set. | have gone to 8 decimal places (and further). The 
deeper you go, the more precise you need to be with your measurements 
to get the right coordinates to find something of interest, and you do 
need some luck, otherwise you may find nothing but the blackness of 
the set itself. 

Load in program 1. Insert a disk with 250 free sectors, this will be 
your data disk. Follow the prompts. Turn off the screen and leave the 
computer and drive to work for the next 10-30 hours while you do all 
those other tasks needing attention. When all the computation has 
finished and the file has been completed, the screen will show FINISHED 
and the name of the file it was saved to. 

Load in Program 2. Type in the name of the picture file, then the 
name of the data file to generate the picture. For the first run through 
select option 2 (MOD 3) and watch the mystery of the selected area 
unfold before your eyes (15 minutes). Save this screen by pressing the 
SELECT KEY. Use Program 5 (Loadscrn) to retrieve this picture at a later 
time. 

Program 3. Follow the prompts. This program shows you at what 
levels of iterations activity was occurring. This will help in the choice 
of where to set the colour changes for the best effects. After noting (or 
dumping) the information generated by this program use that information 
to experiment where to place your colour changes in program 2. Continue 
experimenting until you have the effect you desire. 

Program 4. If you have a PX-80 printer this will dump your screen 
to the printer either in shades of grey, or in separate colour registers. 

Program 5. This is a rough and ready retrieval program. Follow the 
prompts (graphics 15 is graphics 7+). | added this as an afterthought, 
just incase you did not have the means to retrieve the picture files you 
had created. This small program will actually retrieve any type of saved 
screen except for compressed screens. More on screensaves and 
retrievals in another issue. 

PROGRAM 1 MANDELZOOM part 1 - MANDLCAL.BAS 

PROGRAM 2 MANDELZOOM part 2 - MANDPLOT.BAS 

PROGRAM 3 DATACHK.BAS 

PROGRAM 4 COLDUMP.BAS 

PROGRAM 5 LOADSCRN.BAS 

ALSO: Programs 1, 2 and 3 have been compiled. To run the compiled 
version go to DOS and load through L option. The filenames are the same, 
but the extenders are COM. 

SIDE 2 is an autorun. (Press START to Speed up the display of each 
screen.) Just slip it into the drive, turn on the computer, sit back and 
watch a slide show of what you can produce using the programs on the 
front side of the disk. 

— Rita 


MANDELBROT SETS 


and the ATARI 

XE by DICK KELLETT (reprinted from M.A.C.E, Australia, March '86) 

Have you looked at those computer generated pictures in 
SCIENTIFIC AMERICAN AUGUST 1985 and YOUR COMPUTER YEAR 
BOOK, JANUARY 1986 and thought you might like to try the same type 
of graphics? The articles in these magazines suggest setting up arrays 
of up to 1000 by 1000 and using 1000 iterations to check if each point 
is in the MANDELBROT set. This is fine if you have access to a super 
mini or a mainframe but not much help with only 32K available. While 
the ATARI cannot match the resolution of the published pictures, 
GRAPHICS 7+ (GRAPHICS 15416 on XL and XE models) will give 
sufficient resolution and three colours plus background colour to produce 


interesting pictures. 


The pictures are produced by using the equation Z+ 24 C where Z 
and C are complex numbers and repeating the calculation with the 
answer replacing Z in the equation. Counting the number of iterations 
before Z=2 and assigning a colour to this number generates the picture. 
If the number of iterations exceeds the selected maximum (in our case 
100 iterations) the area (pixel) is in the MANDELBROT set and is plotted 
in the background colour. 

After many frustrating hours plotting screens directly and having 
a single colour or a small area in one corner, l realized the number of 
iterations selected to change colours was very important and differed 
for each picture. 

My approach to the problem is to use two programs. The first one 
called MANDLCAL.BAS selects an area according to the formulae in the 
SCIENTIFIC AMERICAN article, scales it to suit a GRAPHICS 7+ screen 
and stores the results on disk as a DATA file of 246 sectors. | used one 
hundred iterations to approximate whether or not the point was in the 
MANDELBROT set. 

The second program called MANDPLOT.BAS allows you to select 
the levels of iteration which colour changes will occur at, and then plot 
the point in the selected colour. Points in the MANDELBROT set are 
always plotted in the background colour. 

The colour changes may be selected to change at preset counts, 
plot through the colours in MOD.3 or plot colours below the first change 
in MOD.3 

The same colour is used for the lowest and highest counts as there 
is sufficient difference in the position of the points plotted to avoid 
running the areas together. It almost gives the effect of having an extra 
colour. 

Both of these programs run very slowly. MANDLCAL takes between 
ten and twenty hours to calculate the data file. The worst case involves 
100*159*191 separate calculations for an area completely in the 
MANDELBROT set. Obviously, an area with a lot of background points 
takes longer to calculate than one with a lot of colour. 

MANDPLOT will set up a graphics 7-- screen and plot the picture 
from the data file in approximately twenty minutes. Before the picture 
is plotted you will be asked for a file name to save the picture to. If you 
do not select a name, the picture will be saved using the default name 
of PICTURE. 

The pictures are saved as 62 sector files. | prefer to save my pictures 
with individual names and use the DOS copy file option to create a new 
file called PICTURE, which can then be loaded into ATARI ARTIST (MICRO 
ILLUSTRATOR) by pressing the CLEAR key after ATARI ARTIST has been 
loaded. The colours can then be adjusted and pattern fills added as 
required. The picture can then be saved in the normal way and used with 
FADER 11 as a slide show. The pictures could also be put through Rapid 
Graphics Converter and be used as a background file for MOVIE MAKER 
etc. 

Both these programs will compile with the MMG compiler. 
MANDLCAL does not show a significant increase in speed and I let the 
program run overnight and while at work the next day. When compiled 
MANDPLOT will plot the picture in approximately ten minutes instead 
of twentyfive minutes. 

If you try these programs | suggest you obtain a copy of the 
photograph of the full MANDELBROT set from the SCIENTIFIC 
AMERICAN article, as it shows the co-ordinates for the set. This will allow 
you to select the starting points (ACORNER, BCORNER) and the length 
of the side for the area to be plotted (SIDE). 

(postscript - use Fig.1 after Rita's article) 

To get started try the following points. The first set of figures should 
give you the complete MANDELBROT set (a colour version of Fig.1). 

ACORNER=-2.5 BCORNER --1.25 SIDE- 3.5 

ACORNER -.2665 BCORNER=-.0049 SIDE=.002 

ACORNER=-.9 BCORNER=.263 SIDE -.005 


ST VT52 COLORS 


(Reprint: Page 6, Caltari) 

Tired of looking at plain old black and white on your VT52 emulator? 
l've managed to dig up a few things you can do to give greater cursor 
and color control while telecommunicating. First, go to Set RS-232 and 
select half-duplex (so you can see what you're doing). 

Next press Esc followed by B. This will move the cursor down one 
line. After mastering that, try these (each proceeded by the Esc key): 

A Cursor Up b£ Select character color # 

C Cursor Right c£ Select background color # 

D Cursor Left e, f Enable, Disable cursor 

E Clear Home j Save cursor position 

H Cursor Home k Move to position 

J Clear Below Cursor p, q Reverse on, off 

L, M Insert, Delete Line (more than these exist!) 

— Craig Maynard 


Delays in Action! 


In the past I’ve used ‘waste time’ loops to provide delays in Action! 
programs. | also like to use this time for other program functions. 
Software timers built into the Atari provide a means of doing this. | will 
give examples of three different ways of providing delays and continuing 
other program functions at the same time. 

Poll Flags 

There are five software timers which decrement 16 bit counters, 
once each vertical blank interrupt. Three of these (#’s 3,4 & 5) seta flag 
location to zero whenever they themselves reach zero. ‘Pollflag’ gives 
an example of using system timer #3. A machine language routine is 
necessary to set the timer without conflicts. This routine is located at 
$E45C (58460). It requires the timer number to be in the accumulator, 
the high byte of the time interval in the X register and the low byte in 
the Y register. Fortunately this is easy to do in Action! A PROC is defined 
to start at location 58460 and passed the proper parameters. Notice the 
code already exits so the PROC needs no body or RETURN statement. 
Timer £3 sets a flag at $022A upon time-out. The variable 'flag' is set 
to this location. The flag is set to 1, the timer is set and then it is just 
a matter of checking every once in a while to see if flag has returned 
to zero. With 16 bits you can get times anywhere from 1/60th of as 
second to about 18 minutes. 

Interrupt at timeout 

Instead of setting a flag, timers 1 & 2 jump to a given routine when 
they time out. Timer 1 is used by the OS and should probably be left 
alone. 'Intime()' gives an example of using timer #2: Before setting the 
timer you put the address of the routine to jump to into locations $0228, 
$0229 (PokeC($0228,timeup)). In this case the called routine just 
changes the background color. More complicated things could be done 
but don't try doing any UO. Remember you are in the middle of a VBI; 
I/O will do strange things here. 

Many timers 

Suppose you need more timers than are available in the OS. Simple, 
create your own. Let's stick to single byte timers for simplicity. We need 
locations to hold the counts (cntdn) and locations for flags (the array 
cntflag). We also need to insert our own code into the VBI routine to 
decrement the cntdn locations. 

The same machine language routine at $E45C is used to insert our 
routine. The 6 in Setvect(6,....) places it in the immediate portion of the 
VBI. Notice the in-line code at the end of Vblank() to return to the OS 
portion. 

Rotate() checks each of the flags and updates the appropriate 
character when a timeout occurs (cntflg(j) =O). The time is then reset 
by putting a number in cntdn(j) and setting cntflg(j) to one. The time 
interval to use is taken from maxcnt(j) and every so often this number 
is increased causing the spinning to slow down. If the number reaches 
15 the updating is skipped and the character remains stationary. In the 
main routine there is a long random interval after which one of the 
maxocnt's is set to 1, causing that one to spin rapidly again. Notice the 
WHILE statement in Rotate(). | originally had this an IF... THEN statement. 
This made the DO OD loop infinite and it took me a while before | realized 
what was going on. Something to watch out for in the future! | also made 
the mistake of having the counters for each routine (i,j & k) all the same 
(j), and made that 'j' global. They could all be the same (j) if they were 
defined seperately in each routine, but making j global meant that the 
counter in one routine affected the counter in another. This also took 
a while to debug and is something else to watch out for. I’m learning 
to stay away from global variables if possible. 

| hope these examples will help you in another approach to delay 
routines in Action! 

— Stan Ockers 


SOLAPAK 


This is the first column | have written for the newsletter, | hope it 
is not the last. The ST is my first computer, | came to it as anovice with 
a lot to learn. The program | was given to review is from Solar Powered 
Software (1807 N. Evergreen, Chandler, AZ 85224), SOLAPAK ($30), 
and contains a spooler, an adjustable ram disk and a screen saver 
program. Documentation for these programs is contained on the disk. 

The instruction manual suggests that you start out with a printed 
copy of Readme.Doc to gain basic information on how to install these 
programs. | found out later that you also must have a copy of Defaults.Def 
and Spooler. Doc before you can get any where. 

For the novice, | find the directions to be ambiguous. | get nervous 
trying to figure out what paramaters or files are best suited to install 
for my printer. One of the first things to be done is to “choose” the format 
needed to set up your printer. | have an Epson compatible Pro Writer 
Junior (C.itoh) printer and was not sure which file to use. The company 
does supply formats for 8 differant printers, two Epson and one C.itoh. 
Some experimentation shows the file for the Epson FX85 printer was 
very close. 
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The next thing to do is create an Auto folder and copy two files 
to this on your boot disk. | did not copy these files into the auto folder, 
but onto the root directory. When | booted up the program, | found | had 
indeed erred and simply reread the dirrections and copied these files into 
the Auto folder. f 

After | did this, | installed the screen saver and spooler as a desk 
top accessory — you do have the option to use the ram disk and spooler 
as a separate program from a disk. | was not sure of the benefit of the 
screen saver when | first started. | thought that it might just be one of 
those nice things to have arround and never use. After seeing it work, 
| am convinced it can be quite beneficial, especially if there are young 
kids in the household who use the computer. It does reduce the worry 
that the kids will leave the monitor on when they are through. You can 
take a short trip to the facilities, or answer the phone without worry as 
well. 

The ram disk and spooler seem to work as advertised. | have found 
some major inconveniences in their use, one is that you have to do a 
lot of work to change the size of the disk, disable it, or disable the spooler. 
To access the proper documentation, you must first load in the ST Writer 
program, unless you just want to type it to the screen. You might find 
it helpful to print all the document files for reference. 

This was my first chance to use a spooler, and | was surprised by 
the ease of use and the fact that you can actually use the keyboard while 
printing a document. You can have up to 32 files in memory to print out 
as needed (520 ST with ROMs installed). | was distressed to learn | 
cannot use the spooler with First Word. When printed, there were no 
spaces between the words. Formatting information used by the printer 
driver in your word processor does not seem to get through this spooler. 
Every thing else seemed fine both in draft and Near letter quality. | have 
tried to print out files from ST Writer as well. | found that it printed the 
numerical information at the top of the screen as well as the text, and 
the text was printed as shown in the file — that is, not properly formatted. 
You will need to print ST Writer files to the disk, and then spool it. The 
disk file will be properly formatted. 

There are some draw backs in the useage of the spooler and sizing 
the ramdisk, but for the price tag, the security of the screen saver could 
be quite worth the investment. 

— Mike Rogers 


LITTLE ALARMS 


by A.J. Aspromatis - 

One of the functions of a newsletter is the dissemination of 
information from and for the benefit of its members and interested 
parties. This information takes many forms and "the warning” is one 
of the most valuable. One might say the subtitle of this column might 
be "Let the Buyer Beware!" 

First, in regard to the DataSoft announcement in the March A.C.E. 
for programmers to submit their wares, a warning. Several months ago 
this programmer sent them a proposal with demo disk of VIDEO 
GAMESHOW, a TV gameshow simulation being worked on at the time. 
Included were a return envelope with postage and a reply-postcard. After 
waiting a fair amount of time without acknowledgement, a follow-up 
letter sent, requesting the status of their review of the submission. With 
the passing of more than 5 months, no reply and no returned software. 
'Nuff said? 

Next, for the BASIC programmer who is tired of speeding up program 
execution with kludges or limited instruction compilers, C! Among other 
reasons for adding C to one's language repertoire is for the learning of 
structured programming techniques, which result in more elegant 
programs and easier debugging. Ralph Walden's "ACE-C" C compiler 
even removes the obstacle of cost from before the ranks of the timid. 
It is available from the A.C.E. program library for the nominal price of 
$10. A truly unsurpassed value! (Beginners should also obtain a book 
on C such as "The C Primer" by Hancock & Krieger and a text editor 
such as the PROGRAM-TEXT EDITOR formerly availble from APX.) This 
programmer used C as a utilities development tool to assist in such 
mundane tasks as text compression and disk protection for VIDEO 
GAMESHOW. BASIC would have been too slow (as a side note, ACE-C 
allows inclusion of machine code for even faster operation). 

Aside from the few operational quirks of ACE-C, there is, however, 
a bug in one of the routines of the runtime file ENGINE.OBJ, specifically 
for the function “ftoi()” (Floating point TO Integer). The problem is the 
hi/lo bytes of the integer number are returned to the calling program in 
reversed order. The C program listed here, when compiled and run, will 
fix the offending code. | wish all problems in life were so easily resolved. 


ATARI OCTOPUS 


There we were, me and my new XM301 modem, 30 fathoms deep 
into the newest local bulletin board, looking eyeball to boob tube into 
the secret expert user codes for the system. Oh no! My disks are already 
full of booty and | don't have any formatted floppies left. How can this 
valuable information be brought back to the surface? Desperately, | 
Switch on my trusty MX80 printer and try to execute a screen dump. 
Oh no! Nothing happens! the system access time is quickly running 
down. My screen echos "One minute left". Time ticks away. Still no 
printer response!!! My screen echos “Thankyou for using the Best Little 
Bulletin Board in Town, ya All come back real soon now." Rats! I'll never 
figure out how to get back to where the secret expert user codes live! 

Back on the surface, the problem becomes clearly evident. The new 


Atari XM301 modem is really a great buy for less than $39. However, ` 


for Atari to be able to produce this thing to sell at that price, something 
had to be left off. What they left off was the serial bus daisy chain 
connector (probably saved them a buck and change). That's the 
connector which lets you plug one disk drive into the next, into a printer 
and so on. The only other Atari peripheral with the daisy chain port 
problem is the cassette tape drive. Atari probably figures no one needs 
cassettes any more, so why not let the XM301 be the last peripheral 
in the chain? 

Well, you see, | have another great buy. An MPP alias CARDCO 
parallel printer interface which is also missing the daisy chain connector. 
The result is | can't have my printer and modem plugged in at the same 
time. It gets to be a real pain untangling and sorting cables every time 
I want to do something. | pull out a disk drive to Switch connections and 
three other cables pop off at the same time (of course | don't notice until 
| put everything back). Modem programs won't boot until | plug the 
modem in; Printshop gets mad if the printer isn't plugged in. Fickled (sic) 
software! 

To put an end to my problems | built an octopus for my Atari. 
Essentially, this means | cut two Atari serial interface cables in half, and 
spliced the same color wires together inside a junction box. | ended up 
with one connector to plug into the computer, and three others which 
can plug into disk drives, printers, or whatever. This frees up to three 
serial ports for single ended peripherals. This modification also helps to 
untangle the nest of cables around the Atari. 

Being a graduate of a local junior college (after 13 years of intensive 
study), this was no big problem to design and build. Anyone who has 
mastered the art of fabricating miniature thermonuclear devices should 
be able to do it also, particularly if they follow the accompanying 
instructions. 

Hopefully, you already have two serial bus cables. Try to use only 
Atari cables since they have the greatest chance of being wired with 
the same color code (you need some luck here). The only thing you really 
need to buy is a small metal box to use for the junction box and perhaps 
a small screw terminal strip, with 15 or more connectors, in the event 
you're not an ace solderer. | recommend a metal box over a plastic one 
to prevent emi (wavey lines on your tube) when using the peripherals. 

Disassemble the connectors at one end of each of the two cables 
by removing the screw and nut. Take off the end shell and check the 
wire color codes to make sure the same color wire goes to the same 
pin on each connector. If they don't, try another cable, or if you're really 
brave (eg., nuts), make a diagram to translate the colors. Once you're 
Sure, you can reassemble the cable ends. 

Now comes the fun part. As you remind yourself these cables will 
cost at least $15 a piece to replace, if you can find them, cut each cable 
into two pieces. You may want to make the cut so each cable is a different 
length as required by your individual computer setup. 

With a good pair of wire strippers or a sharp knife, strip the black 
outer insulation back about three inches. Be very careful not to cut 
into the inner wires. Then strip the individual wires back about % of 
an inch. 

Drill holes for the cables in a box and pass the wires through the 
holes before you begin making the connections. If you don't do this first, 
you will get very upset when you have to unsolder and resolder 
everything. 

Join each set of the same color wire combination (four wires) by 
twisting them together and soldering or connecting them together at 
a connector terminal. When you finish, you will notice some bare wires 
(the shield) left over. Connect these together and fasten them to the 
metal box. 

If you soldered the wires, insulate the exposed connections with 
electrical tape or heat shrink tubing. This will help prevent the need for 
a fire extinguisher when you plug things back in. 

Triple check everything carefully, short circuits are expensive. Place 
the cover on the box and you're ready to go. Just plug one end of your 
octopus into your computer, and the other three ends can connect to 
your other peripherals. Your single ended peripherals can then be 
connected to open daisy chain connectors on the other peripherals. 

— Ron Robinson 


POWER 


(Reprint: January, 1986 issue of STATUS) If you've ever had a power 
supply go bad (as mine did) you know how long it can take to get a 
replacement. A few phone calls to local vendors reveals a one week wait 
at the minimum. Undaunted (and impatient), | decided to build my own 
power supply. 

By using the circuit diagram (See Figure 1) and following the 
construction notes which follow, you can have a “beefy” power supply 
which will handle any demand the 800XL can place on it. And yes, it 
will indeed power a RamDisk modification. As an added feature, I’ve 
included surge protection with the power supply. 

The heart of this power supply is a LM323K +5 volt regulator IC. 
With the proper heat sink, the regulator can provide up to 3 amps to your 
computer. The 800 XL requires less than 1.5 amps (the 130 XE less than 
2 amps), so with a 3 amp rating this regulator is ideal for the power 
supply. . 
For connecting to your computer, you may purchase a 7-pin "DIN" 
connector or you may cut the cable from your old supply. If you look 
at the diagram (see Figure 3), you'll see pins 1, 4 and 6 are the +5 volt 
output. Pins 3, 5 and 7 are the ground connections. With an Ohmmeter, 
find the wire which you cut connecting to pins 1, 4 and 6 and tag it with 
“+5” for future use. The other wire is the ground and it connects to 
pins 3, 5 and 7. 

Follow the schematic (see Figure 1) and wire your project carefully. 
Observe the polarity of the electrolytic capacitors and study the pin-out 
configuration of the LM323K (see Figure 2) before making the 
connections. 

Connect the Metal Oxide Varistor (as shown in the diagram) for 
surge protection. Connect the black and white wires of the line cord to 
the input of the transformer. A fuse holder should be wired to o ne of 
the inputs of the transformer. The green wire (if you are using a three 
wire cord) should be connected to the metal case of the transformer. 

One final construction note. The LM323K must be mounted on a 
heat sink. | chose a plastic project case with a metal top (see Parts List) 
and mounted the LM323K to the metal top with heat sink compound. 
As an option, you can mount the regulator on a heat sink designed for 
a "TO-3" transistor case. | also recommend a tO-3 socket for the 
regulator for easy installation and removal. 

Before connectin the power supply to your computer, power up your 
unit and check for +5 volts at the output. If all seems well than try your 
computer. If you notice any "ripple" on the screen, then recheck all your 
solder connections. It may be necessary to connect the case of the 12 
volt transformer to ground. In extreme cases, you may have to shield 
the entire transformer with a piece of metal connected to ground. 

Good luck with your project! 


LM323K (IC1) 


POWER CONNECTOR PIN—OUT 
a 





Power Supply Parts List 
T1 - 12 volt transformer (Radio Shack 273-1352 or equivalent); 
BR1 - Bridge rectifier (RS 276-1146 or equiv.); | 
IC1 - LM323K (available at local electronics suppliers); f 
C1 - 2200 mtd electrolytic capacitor (RS 272-1020 or equiv.); 
C2 - 1.0 mfd capacitor (RS 272-1055 or equiv.); | 
C3 - 10 mtd electrolytic capacitor (RS 272-1013 or equiv.); 
MOV - Metal Oxide Varistor (RS 276-571 or equiv.); 
Misc - Project enclosure (RS 270-232 or equiv.); 


1 5 Fuse hoider. 


Atari Computer Enthusiasts 

The ACE Newsletter is the first Atari user group newsletter to be 
published anywhere in the world. We began publishing in April, 1981. 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user group with no connection to Atari Corp. We are a group 
interested in educating members in the use of Atari computers and 
publishing the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our 
members. 

Our membership is world wide. Membership fees include the A.C.E. 
newsletter (10 issues per year) and high access in the A.C.E. Bulletin 
Board System. Dues are $14 a year for U.S., and $24 a year overseas 
airmail. 

Subscription Dept.: 3662 Vine Maple Dr., Eugene, OR 97405 
President — Dick Barkley, 2907 Wingate, Eugene, OR 97405 
(503) 344-5843 
Vice President — Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
(503) 686-2490 
8-Bit Librarian — Chuck & Jody Ross, 2222 Ironwood, Eugene, OR 
97401 
(503) 343-5545 
ST Librarian — Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 
(503) 484-4746 
Editors — Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 
(503) 344-6193 
Jim Bumpas, 4405 Dillard Road, Eugene, OR 97405 
(503) 484-4746 
Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
(503) 686-1490 
E.R.A.C.E (Education SIG Editor) — Nora Young, 105 Hansen Lane 
Eugene, OR 97404 / (503) 688-1458 
Send 50c stamps or coin ($1 overseas) to the Librarian for updated ACE 
Library lists. 
A.C.E. Bulletin Board | 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists 
of a 130 XE upgraded to 320k by Charlie Andrews, 2 double-density 
disk drives, and a 10-meg hard disk from Supra Corp, an Epson MX80 
printer, a 2400 US Robotics Courier modem, running the PD/M Bulletin 
Board software. 

Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the 
first issue, Oct. 1981 to June, 1982. 

Volume 2 contains July 1982 through June 1983. 

Only $12 each ($2 extra for airmail). Available only from George 
Suetsugu, 45-602 Apuapu St., Kanoehe, HI 96744. 


TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And its easy to encode your copy with the few typesetting 
commands yotu need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


lui & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 
A composite index of Atari related articles in four popular computer 
periodicals, including the ACE Newsletter. Volume 1 covers April, 1981 
through June, 1983. Volume 2 covers July, 1983 through December, 
1985. Only $6 per printed copy or $11 per disk copy for ACE members. 
Available from: Jim Carr, 2660 S.W. DeArmond, Corvallis, OR 97333. 
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